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3651 PRICE REDUCTION 


Intecolor Corporation has announced 
a price reduction on the 3651 com- 
puter. With 32K memory, deluxe 
keyboard, one 9OK internal disk drive, 
manual and sampler disk, this excellant 
computer is available for $1450.00. The 
3651 carries FCS v9.80, which is nearly 
identical to v8.79 of the CCIl. [COLOR- 
CUE uses a 3651 for all its editing and 
data base work.] A CDBKUP.COM pro- 
gram is provided for transferring CD 
programs to the MD disk format used by 
the 3651. In order to use this program 
you must have an external CD drive 
available for the transfer. [COLORCUE 
can provide this service for you if you 
wish at very low cost.] In our experience, 
all files with BAS, SRC, and TXT exten- 
sions transfer easily. Most PRG files writ- 
ten for v8.79 transfer readily. A few re- 
quire modest changes to esoteric ROM 
calls. This is easily accomplished with 
IDA and is straightforward. 


The 3651 is a one-piece computer, with 
all the features of the CCIl, plus faster 
and more reliable disk reads, improv- 
ed internal and external commands, a 
proper RS232 port, and the ability to 
handle four drives, either 5” or 8”, for 
a total drive capacity of 2.4 mega- 
bytes. FCS accepts both upper and 
lower case commands. It is a truly pro- 
fessional version of the CCll and a 
pleasure to use. All important software 
for the CCll is available for the 3651. In 
fact, nearly all your present software is 
usable once it is transferred to the MD 
disk. The new price includes your selec- 
tion of 10 software packages from the 
Intecolor catalog. Intecolor Corpora- 
tion. 225 Technology Park, Norcross, GA 
30092. (404)-449-59614. 


COLORCUE is published bi-monthly. Subscription rates are US$12/year in the U.S., Canada, and Mexico (via 
First Class mail), and US$30 elsewhere (via Air Mail). All editorial and subscription correspondence should be addressed 
to COLORCUE, 19 West Second Street, Moorestown, NJ 08057, USA. (609-234-8117) All articles in COLORCUE 
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Anything involving computers is in a 
constant state of flux these days, and we 
at Colorcue aren’t exempt from the 
trend. While we are 200 subscribers 
strong, we are rather weak in terms of 
the kind of activity that keeps an expen- 
sive magazine such as Colorcue alive 
and energetic. In short, we have had to 
accept the unavoidable truth that we 
cannot continue to publish in our pre- 
sent format. 


Volume VI will be the last for Colorcue 
(one issue to come) and we will be com- 
bined with CHIP, the newsletter of the 
Rochester User Group, under the gui- 
dance of Rick Taubold. The details are 
explained elsewhere in this issue, so 
please take note of them, and lend your 
support to this splendid group as they 
continue their long history of Com- 
pucolor activity. I will continue as an 
author for CHIP, and have offered my 
Support as my time and means permit. 


Since my work keeps me at one key- 
board or another most of the time (on 
three different operating systems!) | 
share the turmoil felt by most of the in- 
dustry on a day-to-day basis. With the 
avalanche of technological sophistica- 
tion and the increased demands of 
business on software efficiency, those 
of us who indulge in computer interests 
as avocation are finding a major change 
in the way we must approach our hob- 
by, principally in the ways we differen- 
tiate between hobby and our business 
activity. 

_ Small computers are great fun, relaxing 
to operate, and elegant learning tools. 
Most of the commercial ‘‘small’’ mach- 
ines are rapidly disappearing as bank- 
ruptcy claims its victims left and right. 
Those of us accustomed to being in the 
vanguard of computer experimentation 
and development, pounding keyboards 
late into the night, assembling equip- 
ment from surplus houses, and pushing 
forth the frontiers of technology, are 
now replaced by the huge engineering 
teams and multi-billion dollar resources 
of industrial giants. The new technology 
belongs to the rich and powerful. 
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While we have lost our mainstream im- 
portance as hobbyists, I greet this 
change as a positive one overall. The 
hobby can now flourish as a hobby 
without the oppression of changing 
business needs and economic necessity. 
While we will continue to benefit from 
the reduced prices of obsoleted equip- 
ment and software, we will also be band- 
ing together as a computer-interest com- 
munity, consolidating our resources, 
much as we did in the beginning; shar- 
ing more, learning more, and contribut- 
ing more. Expect to see new magazines 
devoted to the hobby of computer elec- 
tronics, such as the proposed _ hard- 
ware periodical, Computersmith, to be 
launched in the Spring of 1985 by Ed 
Dell in New Hampshire. (Ed publishes 
The Audio Amateur and Speaker Build- 
er, two very fine magazines for audio 
enthusiasts.) Expect to see more maga- 
zines for the amateur devoted to ex- 


perimental programming philosophies, 


and an ever increasing proliferation of 
public-domain software. Relieved from 
the pressures of profit making, many 
talented people will find more time to 
devote to the avocational aspects of their 
interests. 


It is important to realize that no com- 
puter is really obsolete in the face of this 
kind of activity. Much as the humble 
Sinclair computer challenged many pro- 
fessionals to overcome its limitations, so 
can we pursue the challenge of imple- 
menting many new and fascinating pro- 
cedures on the 8080 and Z80 machines 
(such as the ‘‘window’’, pull-down 
menu, and multi-tasking.) Experiment- 
ing, at least on a small scale, is easier 
on a simple computer with a straight for- 
ward operating system (and FCS is ideal 
for this!). Programming is quick and 
easily changed. 


Many of you have not yet tapped the 
abundance of excellant programming 
tools available from the CHIP library, 
such as Pascal, Forth, Tiny-C, and the 
FASBAS and ZIP compilers. Colorcue 
subscribers have written a word pro- 
cessor with spelling checker, an analog 
Circuit analysis program complete with 
Bode plots, and several very clever 
disassemblers. We have in our software 
bank the best programs ever written for 


program development for any com- 
puter, including editors, assemblers, 
disassemblers, and compilers. It is no 
longer appropriate to look only for pro- 
grams written specifically for the Com- 
pucolor. We are equipped to do almost 
anything any other computer can do. I 
would like to see programs to emulate 
the batch files of MSDOS, and the 
power of dBASE II on the Compucolor. 
They are within our grasp. 


If you are planning to purchase new 
equipment, and have given your best ef- 
fort to the CCII, you are in a very for- 
tunate position to make wise choices and 
advance your skills. Few computer 
owners have been in a position to get as 
much for their investment as we have, 
even without factory support. 


Intecolor has been in communication 
with Colorcue and CHIP in the last 
months with offers of a renewed effort 
to be of service to CCII owners. While 
there isn’t a great deal they can do at this 
late date, we appreciate their interest 
and spirit of good will. We appreciate 
their acknowledgement of our independ- 
ent achievements as a community. 


You will notice the announcement of a 
new compiler by Peter Hiner in this 
issue. There is irony and humor in the 
fact of its appearance in this particular 
issue of Colorcue. I remember very well 
that FASBAS was first reviewed in the 
final issue of FORUM several years ago. 


So as we prepare to bid ‘‘farewell’’ to 
Our present format, we are also pro- 
ceeding with continued energy to im- 
prove the resources for the CCII, and 
looking forward to an expanded CHIP. 
We extend our best wishes, and our ap- 
preciation, to this organization, for 
coming to the rescue still another time. 


This issue has been greatly delayed for 
lack of sufficient material to fill its 
pages. The final issue will be subject to 
the same restraints, so I urge you to sub- 
mit your materials as promptly as you 
can. I would like to see the Nov/Dec 
issue long before the Spring of 1985, and 
I will need your help to achieve that 
goal. My wife, Susan, and I extend our 
best wishes to you all for a happy and 
fulfilling New Year. [ 


jor 


PETER HINER 11! Penny Croft, Herpenden 


I expect that most of you already know 
of my compiler FASBAS, which speeds 
up Basic programs. Those of you who 
have used FASBAS will know that it is 
easy to use, that it accepts Basic pro- 
grams with virtually no restrictions, and 
that speed increases of up to five times 
can be achieved. Now I have produced 
anew compiler called ZIP, which is not 
as easy to use and which imposes some 
restrictions, but which can make pro- 
grams run much faster than when com- 
piled by FASBAS. 


ZIP achieves much greater speed by 
treating all variables and constants as in- 
tegers (instead of using floating-point 
arithmetic like Basic and FASBAS). 
This means that ZIP is not suitable for 
all applications, and that Basic pro- 
grams may need to be modified to suit 
the requirements of integer arithmetic. 
The manual supplied with ZIP explains 
how to modify your programs, and the 
disk includes an Integer Basic Inter- 
preter with debugging facilities. So you 
should be well equipped to overcome 
any problems, and you will find that 
ZIP opens the way to using Basic for 
fast graphic displays and arcade games. 


A review in the September, 1982 issue 
of BYTE included some benchmark 
programs for comparing the relative 
speed increases achieved by integer and 
floating-point compilers for the Apple 
computer. The table in Fig 1. compares 
ZIP and FASBAS results with the 
ranges of results for Apple compilers. 
The figures in the table are the approx- 
imate number of times faster than nor- 
mal Basic for each benchmark program. 
The ZIP results for benchmark pro- 


grams 7 and 8 are bracketed because in-. 


teger arithmetic does not give correct 
answers. (One of the Apple integer com- 
pilers handled this situation by reverting 
to floating-point arithmetic.) 


You can see that, while FASBAS 
4 


, Herts, ALS 2PD, ENGLAND 


comes somewhere in the middle of the 
field of floating-point compilers, ZIP 
beats them all. 


You can use ZIP to compile existing 
Basic programs. Many will work with 
little or no modification, some will re- 
quire care and patience, and others 
simply will not be able to give the re- 
quired results using integer arithmetic. 
However, the best way to use ZIP is to 
consider it as a tool, which allows you 
to use familiar Basic functions for the 
framework of your program, while ex- 
ploring techniques similar to those us- 
ed in Assembly Language programs to 
optimize the speed of critical routines. 


The ZIP manual describes an exam- 
ple where the PRINT function is replac- 
ed by POKE to display a row of stars 
on the screen. The times for 1000 execu- 
tions of this routine are shown in Fig 2, 
in seconds. 


The POKE method gives ZIP an 
18-fold speed improvement over the 
normal Basic PRINT method. To see 
how this compared with Assembly 
Language (machine code), I wrote an 
Assembly Language routine which took 
3.3 seconds for 1000 executions. With 
further optimization of the ZIP routine 
I could cut the time to seven seconds, 
achieving half the speed of machine 
code (and more than 26 times the speed 


BENCHMARKS i 2 3 


FASBAS 33 24 29 
Apple integer {i-!4 9-15 7-14 
2 yP 4 4 3 


A NEW COMPILER CALLED 


of Basic) for this routine. This shows 
that fast graphic displays and arcade 
games in Basic are really made possible 
by ZIP. 


How, then, should you treat ZIP? 
Should you consider it as another Basic 
compiler, which can produce much 
faster results once you have overcome 
the obstacles of integer arithmetic? Or 
should you treat it as a new way of 
writing programs, almost like using a 
new language which you nearly know 
already? Whichever way you choose, 
ZIP offers you the excitement of 
holding a tiger by its tail. 


The minimum requirements for run- 
ning ZIP are 16K of user memory, one 
disk drive, and v6.78, v8.79, or v9.80 
Basic. The programs compiled by ZIP 
are generated as PRG files for conve- 
nience of operation, and will 
automatically run on v6.78, v8.79, or 
v9.80 machines.[*] 


I propose to distribute ZIP in the 
same way as I distributed FASBAS, en- 
couraging user groups to make the pro- 
gram available to their members on pay- 
ment of a fee of $15.00 per copy. In- 
dividuals are welcome to order direct 
from me, in which case the price is 
$25.00 for the disk (in CCII format), 
manual and airmail postage. Personal 
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checks are welcome as the method of 
payment. 


The deal is further complicated by an 
offer of the latest version (v12.24) of 
FASBAS, which now includes operation 
on machines with v9.80 Basic, output 
files in PRG form (instead of LDA) and 
compiled programs which will 
automatically run on v6.78, v8.79, or 
v9.80 machines.[*] The new version also 
fixes a few obscure bugs and makes 
some improvements to the size and 
speed of compiled programs. 


Using BASIC FASBAS ZIP 


Previous purchasers of FASBAS will 
get a free update included on the ZIP 
-disk. New purchasers may order the pair 
of compilers (ZIP and FASBAS) on one 
disk for a combined price of $40.00 
from me (or a fee of $30.00 if obtained 
through a user group). As always, I will 
send a free replacement for any disk 
which is unreadable or damaged in 
transit. CJ | 
[*° This means, for example, that a program 
written in v6.78 will run on any other version 


of FCS without a jump table or conversion of 
any kind. ED.] 
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HEX TO ASCII CONVERSION (intecolor 8000) 
BOB MENDELSON 27 Somerset Place, Murray Hill, NJ 07974 


Whenever the ISC 8001 computer is us- 
ed for BASIC programming there is a 
need for decimal equivalents to the hex 
memory addressses used for PEEK and 
POKE statements. While there are 
tables for these conversions, unless the 
table is exceedingly long, interpolation 
is required. It is true that Texas In- 
struments makes a hand calculator for 
direct hex-decimal-hex conversions, but 
even here it is necessary to make a 
manual subtraction of 65536 if the 
Original hex number is greater than 
8000. This is because the ISC ROM re- 
quires that numbers greater than 8000H 
be used in Basic as 65536—hex#. This 
program will take any hex number as in- 
put, convert and print it as a decimal 
number, including numbers greater than 
8000H. The program is only 180 bytes 
long and is well worth adding to your 
general utility disk. 


The initial steps from START to 


. HEX set up the title and column names. 


At HEX, the routine HEXIN calls from 
ROM a program that takes the ASCII 
input for a hex number and converts it 
to a true hex number which is stored in 
memory at ORIG. 


The standard hex to decimal routine 
STDEC is then called. It first loads 5 
bytes of memory defined as UNIT, 
TEN, HUN, THOU and TTHOU 
designating each of the 5 digits in the 
decimal number. The value 30H that is 
loaded is the ASCII value for zero. As 
we shall see, this is very important. 


Now the actual conversion starts. By 
use of the 2’s complement method, star- 
ting with the most significant digit, suc- 
cessive additions are made of the hex 
equivalent of 10000 decimal. Each ad- 
dition is counted by adding one to the 
TTHOU memory byte. This raises 
ASCII 30H to successive ASCII 
numbers. This continues until a borrow 
occurs and the carry is ‘true.” The same 
procedure is followed for each of the 
next three digits. The unit digit is con- 
verted by adding it to 30H and saving it. 


The program is now ready to print the 
result under the decimal column, begin- 
ning at routine PRINT. Register C is set 
to 5 as acounter. Register B is set to 30H 
as a detector of unneeded zeros to the 


left of small numbers, and register D is 
set to zero as a detector of the first digit 
greater than zero that is printed. This 
will be used to retain the print of zeros 
in the middle of a number. 


The most significant digit is recovered 


and compared with 30H. If it is not a 
zero, it is printed and the D register is 


. set to 1. The next digit is recovered and 


the same sequence is followed. A zero 
recovered while D =0 will be replaced by 


.a space. When D=1, the zero will be 


printed. The standard decimal conver- 
sion process is now Over. 


The conversion to the ISC decimal 
equivalents requires that the input 
number be checked to see if it is greater 
or less than 8000H. This is done at 
DSPASC. If less than 8000H, the print 
will be the same as described above. If 
it is greater than 8000H, then 65536 will 
have to be subtracted to get the ISC 
minus number. A modified 2’s comple- 
ment method is used to achieve this. 
Since the hex value for 65536 is 1OOOOH, 
it is too large to use 16 bit arithmetic. 
Therefore a 24 bit routine is used. Fur- 
ther, the need for a minus sign can be 
met by merely printing it, since we won’t 
be in this portion of the software if it 
is not required. The routine starts at 
NEG, where ‘00’ is added in front of the 
input hex number (1 byte) and the con- 
stant 010000H is provided by loading 
three bytes. It is time, now, to perform 
the subtraction-with-carry on the least 
significant byte. The result replaces the 
input hex number at the ORIG memory 
address. 


As a result of all of this arithmetic, 
the ORIG address now holds the hex 
equivalent of the ISC negative number. 
The STDEC routine is recalled to con- 
vert this new number to 5 ASCII digits 
which are then printed in the ISC col- 
umn. The number 8000H cannot be 
defined since it is neither positive nor 
negative, so a routine at ISC is used to 
detect this number and print a ‘Not 
Defined’ error message. 


The program now recycles and asks 
for a new input. Any non-hex character 
at the input will cause a jump out of the 
program. This may be used for an 
orderly escape, including a vector to a 
utility menu. CJ 


LISTING 1. HEXASC.SRC - Hex to ASCII Conversion 


START : 


HEX 


For ISC 8881 Computer 
by R. M. Mendelson, 7/8/84 


Program origin = FEBQH 


EQU 8183H  ;Console in 

EQU Q189H  ;Console out 

EQU 8133H Hex evaluation 

EQU 9FFFH Keyboard flag 

EQU Bi@FH =©sList out 

EQU B12AH ©sOutput string 

EQU 3886H  3sUtility ROM, may 
s be any address 

EQU 14 

EQU 15 

EQU 13 

EQU 22 

EQU 1} 

EQU 239 

EQU 12 

EQU 18 

EQU 18 

EQU 17 

EQU 28 

EQU 19 

FE@BH 

A 

KEYBF{ Clear Keyboard 

MESS 

YEL ,BA70N,EP 


“HEX TO ASCI] DECIMAL CONVERSIONS-’ 
BA7OFF 


labels 
CR,LF,LF,GREEN,’ HEX STD 1SC’ 


CR;LERED, 7 )-\'n--* NEL ,* sree" ' 
CYAN,”  --Ha= ’ CR LF ,E0S 


Main Routine. Input will appear in the HL 


register as hex # 


REPEAT ;sGet input arrow 

HEXIN j;Input Kybd ASCII input to hexf 
ORIG j;Save it for later use 

STDEC Convert to std ASCII decimal # 
MESS  ;Align cursor for dec printout 
CRLF,’ ’ ,YEL ,UP,E0S 

PRINT Print it out 


sThis routine will check if number is greater than 8806H 


; and if so will subtract 65536 and print it with a minus 
; sign as required by the ISC 8801. If the number is less 


; than 8808H, it will print it as standard. 


LHLO 


DSPASC: XRA 
DCR 
ANA 
JM 


CALL 


JMP 


ORIG Recover original hex# from mem. 


A sSet A=B 
A s;A=FFFFH 
H y1f HE) 8xxx, Sign = 1 or minus 


IS¢c jl f minus print ’-’ sign 
PRINT Print it. Dup of col 1 8888H 
REPEAT Ready for new input 


sCheck for input of 8688H which is not defined as (-)# 


1SC: MOV 
SU] 
ADD 
J2 


A,H ;Get most significant byte 

88H s1f H=88 ANS=8, zero flag=! 

L sAny digit but @@ resets zero fl 
OVFLOW ;Number is 8808H 


;Print minus Sign and perform subtraction 


MY] 
CALL 
MV] 
CALL 
CALL 
CALL 
CALL 
UMP 


A, 26 sCursor left for ’-’ sign 
LO ‘Move it 
A,’-’ Minus sign 


LO ‘Print it 


NEG ‘Subtract 65536 


STDEC ;Print difference as dec # 
PRINT Print it 
REPEAT Ready for new input 


;Conversion to std decimal number, Fill Storage 
; memory with ASCI] 6 (38H) 


STDEC: LHLD 
XCHG 


ORIG ;# to be converted must be 
; in DE to start 

sUNIT §=;Point to 3 digit storage 

a ‘Counter 

38H = sFill with ASCII] 8 


;Count down 
;Re-do 


‘Convert hex to ASCII (8-65536) 


DCX 
LX] 
CALL 


LX] 


CALL 


LXI 
CALL 


LX] 
CALL 


H ;Back up to ten-thou digit. 
B,@D8FBH ;-18888 (2’s comp of 18K) 
DIGIT  jAdd to the content of DE 

; Feg until borrow occurs. 


B,OFC18H 3-1888 (2’s comp) 
DIGIT Do again til borrow occurs 


B,BFFICH 3-188 (2’s comp) 
DIGIT 


B,OFFFOH 3-18 (2’s comp) 
DIGIT Final addition 
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MOV A,E sGet the number of units 
AD] 36H sAdd ASCII @ to it 

MOV MA ‘Save it, 

RET 


‘Print out the ASCI] standard decimal # 


;Get ready for next hex input 

REPEAT: CALL MESS Set arrow prompt 
DB CR,LF,LF,YEL,’ > ’,E0S 
JMP HEX 


;Routines for 8-65536 decimal conversion 


PRINT: LX] H,TTHOU ;Point HL to MSB ten-thous 
MY] C,5 ‘Set counter: print 5 digits DIGIT: PUSH H ;oave mem pointer on stack 
MJ] -B, 38H =; ASCII 8 <LXI B,3885H) XCHG sGet # for conver. in HL 
MIO, 8 ‘Marker for digit or zero DAD siB jAdd 2’s comp test #f 

PRA: = MOV AM ‘Get ASCII digit UNC ADDIT = j;Jf borrow then carry=True 
CMP B ‘Is it ASCII] zero? XCHG sNo borrow, get HL & DE back 
JN2 PR] ‘No! Set marker POP H ;Recover memory address 
YRA A INR M ;Incr mem count by 1 
CMP p ‘Yes! Check marker for 8 JMP DIGIT j;Try subtraction again. Loop 

* No digits yet! * will cont until carry=True 

JN2 PR2 ‘Marker is “1”. Print 8 ADDIT: MOV A,C ‘Form 2’S complement 
MV] A,28H j;Marker is *B’, So CMA 
JMP PR3 + print space MOV E,A 

PRI: = MVJ D,! ‘Digit for print, set marker=1 MOV A,B 

PR2; MOV A,M ‘Recover non-zero digit CMA 

PRI; CALL (0 ‘Print it MOV D,A 
CX H ‘Dec pntr to next sig. digit INX D ‘DE contains 2’s comp 
DCR C ‘Dec counter DAD D sAdd it to test # 
JN2 PRO sRe-do till counter = 8 XCHG 

‘Set cursor for last # printout POP oH ;Pop mem pointer off stack 
CALL MESS H hansen memory pointer 
DB é / CYAN, £0S ‘Back to main program 
RET 


‘Subtract 69936 to get ISC negative number. Must 

* get input number and 2’s comp of FFFF in 3 bytes 
* each into memory, in order LSB, NSM, MSB. The 

+ 2’s complement of 65536 is -16808d. 


NEG: LX] D MINUS 
XRA 4 
STA MINUS  ;MINUS has 10068 
STA MINUS#} 
STA ORIG+2 ;Blank MSB for 3rd byte of 
‘ input number. =, 
INR 4 
STA MINUS#2 ;The ‘81’ of °818888’ 
SUB3; MI C3 ‘Counter 
LX] H,ORIG ;Point to Isb of original # 
XRA a 
SUBAGN: LDAX. 0D ‘Get Isb of constant 
S8B M ‘Subtract Isb 
MOV M,A ‘Replace ORIG digit 
INK D ‘Next significant bits 
INX H 
DCR C ‘Reduce counter 
JNZ SUBAGN ;Not done. Re-do, or 
RET * return 
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sSubroutines 


HEXIN: MVI C,! sCounts 4 bytes of ASCII input 
CALL = EXPR ; of a hex# and converts to 
POP H ; true hex, Result in HL reg. 
RET 

QVFLOW: CALL MESS 
DB RED, ‘NOT DEFINED’ ,E0S 
JMP REPEAT 

MESS: POP H {This is very tricky! Seasoned 
CALL OQSTR 3 programmers, take note! ED) 
PCHL 

sMemory address for 8-655346 decimal output 

UNIT: DS 1 ‘3D digit memory storage 

Ta OS 1 

HUN; = DS 1 

THOU: DS 1 

TTHOU: DS ) 

ORIG: DS 3 ‘Original input hex# + 68 msb 

MINUS: DS 3 32°5 complement of 65536=18088d 
END START 


REFERENCES: 8080 Software Design, Book 1. 
H. W. Sams, 1978, p 257. Computer Design, 


April 1978, p 168. 


TOM NAPIER 12 Birch Street, Monsey, NY 10952 


In early 1982 I decided that I would like to try FORTH on 
my Compucolor II, so I did the logical thing. I bought a 
listing of FIG-Forth, typed in some 28000 characters, and 
spent several weekends adapting CP/M based code to the 
idiosyncrasies of the CCII disk system. Eventually it work- 
ed, and it wasn’t until several months later that I discovered 
the DATACHIP library already contained a version of Forth 
for the CCII. [1] 


I found the FIG-Forth editor to be so slow and curnber- 
some that I often ended up writing programs in assembler 
rather than in Forth. Recently I took the plunge and wrote 
my own screen-based editor. It is such a delight to use that 
I even find myself touching up the layout of Forth screens 
for fun, something I would never have dreamed of doing 
before. 


Since this editor is written in standard FIG-Forth, it 
should work with any version of CCII Forth. It should also 
be Intecolor model independent. Since it uses the editing keys 
of the expanded keyboard it won’t be so easy to use with 
only the standard keyboard. The allocation of screen 
numbers in the accompanying listing is quite arbitrary and 
can be changed to suit the user’s disk space, provided the 
order of the definitions is not changed. 


This editor uses one main word and two auxiliary words. 
The latter two are CLEAR and COPY, which are copied 
from the FIG-Forth editor. Their usage is ‘N CLEAR‘ to 
clear disk screen N, and ‘N1] N2 COPY‘ to copy screen N1 
to screen N2. The editor is invoked by typing ‘‘SEDIT”’ (for 
Screen EDITor). At run time it prints the message ‘NEXT 
SCREEN NUMBER’”’ and waits for the user to type in the 
number of the screen to be edited. I’ve been lazy and omit- 
ted the backspace function from the number input, so you’ll 
have to get it right the first time. Type an out-of-range screen 
number if you want to get a disk error message, and 
therefore abort a typing mistake. 


The specified screen is loaded from disk and displayed 
on lines 4 through 19. Above these lines is a display of the 
screen number and the current cursor position. The cursor 
appears as a blue background travelling under the green 


ASCII characters. Under the screen, the prompt ‘‘PAD”’’, © 
followed by a right arror, appears. This indicates that the 


line below, initially blank, is a display of the contents of 
the pad. 


One may now type in any characters and have them in- 
serted at the current cursor position. Existing characters on 
the same line will be moved to the right to make room for 
the insertion. Any characters moved off the end of the 64 
character line will be lost. Note that the insertion process 
takes a macroscopic time. I occasionally lose one of a dou- 
ble letter pair, and if you are a blindingly fast touch typist 
you will have to slow down a little. 


The DELETE CHAR key deletes the character to the left 
of the cursor and moves the remaining characters in the line 
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to the left. Lines are treated independently; deleting 
characters on one line does not move up those on the line 
below, useful though this might sometimes be. 


The cursor keys move the blue cursor around the screen. 
They auto-repeat and also wrap around at the sides and the 
top and bottom of the screen. The quickest way from the 
extreme right of a line to the extreme left is to use the right 
arrow key. The HOME key returns the cursor to the top 
left corner. 


The RETURN key acts as a ‘‘new line’’ key, moving the 
cursor to the first left position on the line below. 


Complete lines may be manipulated with the ERASE 
LINE, INSERT CHAR, DELETE LINE, and INSERT 
LINE keys. INSERT LINE moves the text downward star- 
ting with the line the cursor is on, thus enabling one to in- 
sert a new line at that point. The last line on the screen is 
lost in this case. DELETE LINE copies the line the cursor 
is on to the pad, appearing under the screen display of text, 
then moves all following lines up one line. ERASE line 
copies a line to the pad without deleting it. The INSERT 
CHAR key is used as a ‘paste’ key; it moves the text from 
the cursor down to make room for a new line, then copies 
the text from the pad to the screen. This can be used to 
transfer text between screens as well as to duplicate lines on 
the same screen. 


ERASE PAGE is used to change from one screen to 


another. It generates the ‘next screen number’ prompt and 
displays the contents of the screen specified. The current 
screen is flagged as UPDATEd whenever any changes are 
made to it. 


Pressing the ESC key FLUSHes the changes to disk and 
exits from the editor to FORTH. 


One thing to watch—the DELETE CHAR command 
deletes to the left of the cursor so it cannot erase the last 
character on the line without one other character being eras- 
ed first. Also, if one attempts to insert beyond the last 
character the keyboard input will replace the last character 
on that line. None of this should matter since the last 
character of a line should always be a space, otherwise the 
FORTH compiler will concatenate it with the first character 
of the next line and be unable to find the resulting word. 
It took me some minutes of gazing at the message ‘‘;:?”’ 
before I realized that a FORTH screen contains nothing to 
indicate where a line ends. (Another tip from hard ex- 
perience; if a screen contains only a few lines, end them with 
“*;S’’. If there are more than 255 spaces between the last 
character and the end of a screen the compiler will hang up.) 
[Thank you, Tom! I have been scratching my head! ED]. 


In this listing I’ve defined four words; CLRS, PLOT, 
SMOVE, and VHTAB, which my system has built in. This 
means that this published version displays the screen more 
slowly than my original version. Happy editing. LJ 


[4] Two versions of FORTH, and three screen editors, to date. [ED] 
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( SCREEN EDITOR, 5/1/85 COPYRIGHT 1985 T. M. NAPIER ) 


6 LOAD ( CASE FUNCTION ) 
41 LOAD 
42 LOAD 
43 LOAD 


SCR # 40 


45 LOAD 
46 LOAD 
47 LOAD 


0 
l 
2 
3 
4 
5 
6 44 LOAD 
] 
8 
9 
10 


0 ( SCREEN EDITOR INSERT DELETE ) 

1 

2 0 VARIABLE L# Q VARIABLE C# Q VARIABLE K# 

3 

SCR # 41 4: PLOT 64 * + DUP + 28672 + ; ( SCREEN ADDRESS ) 

So) CERES SCR @ (LINE) DROP ; ( GET LINE ADDRESS ) 
6 : CHAR L# @ LINE C# @ + ; ( CHARACTER ADDRESS ) 
7: -MOVE LINE C/L CMOVE UPDATE ; ( MOVE LINE UP ONE ) 
8 : WIPE LINE C/L BLANKS UPDATE ; ( CLEAR LINE ) 

9 : CLEAR-PAD C/L PAD C! PAD 1+ C/L BLANKS ; 
10 : <SLIDE CHAR DUP 1 - C/L C# @ - CMOVE ; 
tl ¢ SLEDE> CHAR DUP C/L + C# @ - 1 - 
in DO 1 1 - C@ I C! -1 +LOOP ; 


> DASHES Q SWAP PLOT DUP C/L 2 * + SWAP 
DO 45 I C! 2 +LOOP ; 


SCREEN EDITING COMMANDS ) 


0 

1 

2: CLEAR SCR ! 16 0 DO I LINE C/L BLANKS LOOP UPDATE : 
3 : 

SCR # 42 4: COPY  B/SCR * OFFSET @ + SWAP B/SCR * B/SCR OVER + SWAP 
: DO DUP I BLOCK 2 - ! 1+ UPDATE 

6 LOOP DROP FLUSH ; 

7 
8 
9 


: SMOVE ROT SWAP OVER + SWAP DO DUP I C@ SWAP C! 2+ 
LOOP DROP ; 
10 : COLOR-CURSOR C# @ L# @ 4 + PLOT 1+ C! ; 
11 : MARK 34 COLOR-CURSOR ; 
12 : -MARK 2 COLOR-CURSOR ; 
13° =. CLRS 6 EMIT 2 EMIT 15 EMIT 12 EMIT ; ( GREEN TEXT ) 
: VHTAB 3 EMIT EMIT EMIT ; 


COLORCUE SEP/OCT 1984 


10 


SCR # 43 


SCR # 44 


SCR # 45 


0 ( SCREEN EDITOR DISPLAY ) 

1 

2 : SHOW-PLACE ly & VITAG’ .* SORE SCR Be: SR 

3 a LINE# " L# @ 2 .R 

4 ts CHAR# " C# @ 2 .R 

5 21 O VHTAB ." PAD>" 24 O VHTAB ; 

6 : SHOW-PAD PAD DUP 1+ 0 22 PLOT ROT C@ SMOVE ; 

7 : SHOW-SCREEN CLRS SHOW-PLACE 3 DASHES 20 DASHES 

8 SCR @ BLOCK 0 4 PLOT 1024 SMOVE MARK SHOW-PAD ; 


9 : SHOW-LINE SCR @ BLOCK L# @ 64 * + ( LINE START ADDRESS ) 
10 O L# @ 4 + PLOT 64 SMOVE MARK ; 
11 : +MARK -MARK C# @ + 63 AND C# ! L# @ + 15 AND L# ! 
12 MARK SHOW-PLACE ; 
13: HOME -MARK 0 C# ! O L# ! MARK SHOW-PLACE ; 
>: NEW-LINE -MARK O C# ! L# @ 1+ 15 AND L# ! MARK SHOW-PLACE ; 


SCREEN EDITOR INSERT DELETE ) 


- 


: COPY-LINE LINE PAD 1+ C/L DUP PAD C! CMOVE SHOW-PAD ; 
>: INSERT-LINE DUP 1 - 14 DO I LINE I 1+ -MOVE -1 +LOOP WIPE ; 
> PASTE-LINE DUP INSERT-LINE PAD 1+ SWAP -MOVE ; 
: DELETE-LINE DUP COPY-LINE DUP 15 = IF DROP ELSE 15 SWAP 
DO I 1+ LINE I -MOVE LOOP ENDIF 15 WIPE ; 
: DELETE-CHAR C# @ IF <SLIDE BL C/L 1 - L# @ LINE + C! 
Q -1 +MARK UPDATE ENDIF ; 
: INSERT-CHAR C/L C# @- 1 > DUP IF SLIDE> ENDIF 
K# @ CHAR C! IF O 1 +MARK ENDIF UPDATE ; 


WON DNL WMrF- © 


: CHANGE-SCREEN ." NEXT SCREEN NUMBER = " 
13 QO BEGIN KEY DUP DUP EMIT 13 = Q= 
14 WHILE 48 - SWAP 10 * + 
REPEAT DROP SCR ! ; 


NON-CURSOR KEY TABLE ) 


0 ( 

1 

2: INSERT/DELETE K# @ CASE 

3 INSERT LINE KEY ) 3 OF L# @ INSERT-LINE 1 ENDOF 
4 DELETE LINE KEY ) 4 OF L# @ DELETE-LINE 1 ENDOF 
5 INSERT CHAR KEY ) 5 OF L# @ PASTE-LINE 1 ENDOF 
6 ERASE LINE KEY ) 11 0F L# @  COPY-LINE O ENDOF 
7 DELETE CHAR KEY ) 127 OF DELETE-CHAR O ENDOF 
8 ANY OTHER KEY )  INSERT-CHAR O SWAP 

9 ENDCASE ; 
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a ee ee 


( CURSOR KEY TABLE ) 


>: STEP BEGIN 33252 C@ ( STEP WHILE KEY DOWN ) 
WHILE OVER OVER +MARK 100 0 DO LOOP ( TIME DELAY ) 
SCR # 46 REPEAT DROP DROP ; 
: PRULESS O K# @ CASE 
( CURSOR RIGHT) 25 OF O 1 STEP ENDOF 
CURSOR LEFT) 26 OF O -1 STEP ENDOF 
CURSOR UP ) 28 OF -1 0 STEP ENDOF 
CURSOR DOWN  ) 10 OF 1 0 STEP ENDOF 
HOME KEY ) 8 OF HOME ENDOF 
RETURN KEY ) 13 OF NEW-LINE ENDOF 
ANY OTHER KEY ) INSERT/DELETE ROT ROT DROP 
ENDCASE 
IF SHOW-SCREEN ELSE SHOW-LINE ENDIF ; 


— 


( SCREEN EDITOR MAIN LOOP ) 


eee be CLRS CLEAR-PAD ." SCREEN EDITOR" 
CR CR CHANGE-SCREEN 
BEGIN HOME SHOW-SCREEN 
BEGIN 
KEY DUP DUP K# ! 27 = SWAP 12 = OR O= 
WHILE PROCESS ( KEY NOT ESCAPE OR ERASE PAGE ) 
REPEAT 
K# @ 27 = O= 
WHILE CHANGE-SCREEN ( ERASE PAGE KEY ) 
REPEAT | 
HOME -MARK FLUSH ; (. ESCAPE UPDATES DISK AND EXITS ) 


SCR # 47 


——— 


CASE, ARRAY ) 


: CASE ?COMP CSP @ ICSP 4 ; IMMEDIATE 


SCR # 6 ar 4 ?7PAIRS COMPILE OVER COMPILE = COMPILE OBRANCH 


HERE 0 , COMPILE DROP 5 ; IMMEDIATE 


: ENDOF 9 ?PAIRS COMPILE BRANCH HERE O , SWAP 2 
[COMPILE] ENDIF 4 ; IMMEDIATE 


: ENDCASE 4 ?PAIRS COMPILE DROP BEGIN SP@ CSP @ = O= 
WHILE 2 [COMPILE] ENDIF REPEAT CSP ! ; IMMEDIATE 


: ARRAY <BUILDS DUP C, * ALLOT DOES> ROT 1 - OVER C@ * ++ ; 
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ANIMATION (Concluded) 


CHRIS ZERR_ 10932-156th Court NE 
Redmond, WA 98052 
Compuserve: 71445,1240 


In the last article we plotted a rectangle on the screen and 
moved it through a blue field at various speeds using OSTR 
to print db strings.. Let’s try a more appropriate figure this 
time, constructed from plot blocks, increase the action, and 
poke the animaton directly into screen memory. 


We will construct an ‘alien’ with a missile launcher, mov- 
ing feet, and piercing ‘eyes’ that blink menacingly at us, all 
through the use of plot blocks poked directly into screen 
memory. Constructing the figure of the alien is a matter of 
laying out the plot blocks and identifying the code required 
to illuminate them in the desired way. 


CONSTRUCTING THE ALIEN’S PLOT BLOCKS. 


Figure | shows a single plot block, consisting of eight con- 
trollable portions .. Al through A4 and BI through B4. 
These eight portions coincide with the eight bits of a byte. 
The portions of the plot block that will be illuminated will 
depend on whether or not the corresponding bit in the plot 
byte is set. To illuminate each of the four corners of a plot 
block in turn, we would set our plot byte eae to each of 
the following numbers: 


Upper left corner : set Al bit “bit B= PLOT value | 
Lower Jeft corner : set Ad bit (bit 3)= PLOT value 4 
Upper richt corner: set BI bit (bit 4)= PLOT value {4 
Lower right corner: set B4 bit (bit 7)= PLOT value 128 


So to construct a plot block, we shade in the bit sections, 
add all the individual bit values to the find the total plot 
value, and we have it! But we are not quite finished, because 
plotting the plot value alone will not quite do it. The CCI 
code must also be assigned, and for a plot block it must have 
a value between 128 and 255. The effect of the CCI code 
will be the same, by and large, as it would be for an ASCII 
character attribute, but the number will be increased by 128. 
For example, to set the color yellow, we issue PLOT 6,3 
for ASCII, but for a yellow plot block it becomes 3 + 128 
or 131. (Now we know how to peek at a screen memory loca- 
tion to tell if there is an ASCII character there or a plot 
block.)[1] 


You may easily experiment with plot blocks and their CCI 
codes in BASIC to observe the diffference various CCI codes 
make. Whatever character we design must be derived from 
a combination of plot blocks within the possibilities available 
to us. A crude sketch on graph paper is the easiest way, 
possibly, and permits an instant translation into the correct 
plot codes. 
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Assembly Language Programming 
Part XVI 


Fig i, : é 1 
ay. : L . 
ria [ie retro a ) 
o°)) 2438 jaeaee a ge ok oo ares 
sete] pooped | 
4 | 8 | 128 


F [xixix] [xt | jea6= 


643216 8 4 2 1 


Our alien has two different forms in this program. In the 
first form his left foot is raised; in the other his right foot 
is raised. Figures 2 and 3 illustrate the composition of these 
two figures. The outline of the plot blocks has been exag- 
gerated in Fig 2 so you can see how the plot codes for this 
figure were derived. The upper left plot block has bits 2, 
3, 5, 6, and 7 set, giving a value of 4+8+32+64+4 128 or 
236 for this plot block. You should try to derive the plot 
codes for the remaining blocks as an exercise. The lower left 
block is shown with the proper bits set for you in Figure 2. 


The plot blocks from Figure 2 contain the values 236, 238, 
206, 251, 191, 116, 0, 143. The zero (0) count is necessary 
to act as a filler which says a null block is to be plotted in 
that location. In actual practice, each of these plot blocks 
must also have a CCI code following it, so a completed com- 
mand byte string for Figure 2 would be 236, 131, 238, 131, 
206, 131, etc. 


We may mix plot blocks with ASCII characters in the plot 
command string, and our alien requires this to plot his ’eyes’, 
which are quotes in ASCII. You will find them in the plot 
string from this Basic example, which plots the alien in one 
of his two forms on the screen: 


184 xX=30788 


. us 8 -— ee a a Sh 
a: | 7? 
! } ' it ' 
Io = = poe afew mabe min a ae 
ee O83 ee ee ee 
gee i 2h 79 ' 
ee eee Pe ee 
Puwnaewwe ee eo = 
é bee oe 
( 0 Seta 
i bees : 
poe 
lrer ena” -—-— --J 
see i ee 
ee ee a ae et |  @ae @ @ , ey 
Sem 


REM INITIAL SCREEN MEMORY LOCATION 


11@ FOR A=1 TO 3 : REM PAINT 3 VERTICAL PAIRS OF BLOCKS 

128 FOR Bel TO 6 : REM THREE PAIRS OF BYTES FOR X AXIS 

138 READ 2 : REM GET POKING DATA 

148 POKE X,2 + REM POKE ALT PLOT CODES & CCI | 
138 X=X+] 

148 NEXT B 


178 ¥=X+122 : REM PLOTS DOWN ONE BLOCK ON Y AXIS 

188 NEXT A : REM PLOT NEXT VERTICAL PAIR © 

198 END 

288 DATA 236,131,238,131, 286,131,251 ,131,34,25, 191,131 
218 REM “34,25’ 1S ASCII [*] IN RED 

228 DATA 116,131,0,8,143,131 : REM ’8,8’ IS FILLER PAIR 
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This program may also be written as one line: 


18 PLOT 3,38,16,19,2,254, 236,238,284, 255,3,38,11,2,254, 251, 
255,6,25,34,6)3 52525045191, 255,3, 38 ,12,116,8,143, 255 


All we have done so far is paint one of the two alien forms. 
The numbers for the other form, including the ‘eyes’, and 
the CCI code are: 


236,131 ,238,131, 286,131,251 131, 


34,27,191,131,248,131,6,6,71,131 (See Figure 3.) 


The principle is very simple. We now have a subject ready 
for use. 


BORDERS. 


Every game has a border, or a boundary, but it isn’t 
always a visible one. For example, the edges of the CRT 
are always a finite boundary for any plotting. The program- 
mer needs a border, visible or not, so he can check to see 
if his animaton has gone as far in one direction as it can 
go. If such a check were not possible, animation would stop 
when the CRT boundary were reached, or an animaton 
might leave the screen when this was not desired. If you look 
at an invisable boundary (in a properly programmed routine) 
you will probably see an ASCII character from | to 255, 
but a CCI code of zero (0), so it doesn’t show. Whatever 
the choice of boundary encoding, it must be selected so it 
is unique to the boundary, and not used anywhere else on 
the screen. It is entirely possible to make each of the four 
boundary codes different so the program knows exactly 
which boundary it has reached. This is much more easily 
done if the actual boundary is invisible, for otherwise the 
encoding changes would have to be visible sooner or later 
(if the CCI code were not zero, for example.) 


Our program uses a border made of the hatch character 
( 96 decimal) and a CCI code of 38 (blue on white). We are 
not going to let the alien move off the screen, so our border 
encoding will be a warning to us that a boundary is present, 
and that the direction of the next move must be changed. 


The border is poked directly into screen memory by the 
subroutines TANDB and SIDES, beginning at memory ad- 
dress 7000H. The blocks representing the animaton are also 
poked directly into screen memory. The inital location of 
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these blocks is established in the nineth line of START, 
where location 30790 is recorded in LOC. You may-change 
this location, provided you replace it with a valid screen 
memory address. 


MOVEMENT 


We will use keyboard scanning to let the operator move 
the alien in one of four directions and to fire the alien’s 
missile.[2] The scanning procedure makes it unnecessary for 
the program to wait for a key press before proceeding with 
the automation; otherwise, the left foot might just stay ‘put’ 
until we pressed a key. The technique we use was describ 
ed by Steve Perrigo in Colorcue, June/July, 1982. The 
following assignments have been made to direct alien 
motion: 


”»8’? = move up, ‘‘2’’ = move down, ‘‘4’”’ = move left, 
and ‘‘6’’ = move right. 


Entering a ‘‘5’’ will ‘fire’ the missile. This pattern coincides 
with most joystick wiring. If your joystick uses the arrow 
keys, these may be substituted for the numbers readily. 
Notice that diagonal movement is possible in our routine 
by pressing two keys at the same time (or moving the joystick 
between two absolute directions.) 


FIRING THE MISSILE 


When the ‘‘5’’ key is pressed, the routine FIREX is call- 
ed. It checks first to see if a missile is already being fired. 
If so, the routine is aborted; otherwise FIREX finds the 
alien’s current position and direction of movement. We are 
choosing to fire the missile in the direction of alien travel, 
and so we must plot a course for the missile. To make things 
‘neat’ we fire the missile from the center of the alien. You 
will notice that the MISSLE routine is called several times 
for each single movement of the alien. This is necessary to 
prevent the alien from moving right along with the missile. 
The missile will travel until it hits the border. 


The code in Listing I is well documented, and, as with 
all assembly code, it needs to be read to be understood. You 
might try experimenting with the time delay at label 
MOVEIT. You might also try moving the alien on a totally 
blue background (as with the rectangle, last time.) This kind 
of experimenting can be very inspirational when designing 
a game. As an additional exercise, find a way to remove the 
call to OSTR, and make this program completely FCS- 
version independent. 


We also know, now, how to expand the program 
developed in the last last article, making use of a border sen- 
sor, and introducing a method by which the rectangle 
‘knows’ when it is about to tred onto the blue field, and 
when it is retracing a previous path. You may reprogram 
that listing to guide the rectangle through its first complete 
connecting loop, after which it will maneuver itself without 
straying from the initial path. LJ 


[4] The CCl codes are discussed thoroughly in the CCIl Program- 
mer’s Manual. Also see ‘Color Graphics’ by David Suits. 


[2] Note: This routine will not operate properly on a 3651. To 
duplicate the function, use the GITCHA routine and CHRINT setup 
from David Suit’s input routine in Colorcue. Write to Colorcue for 
details if you need some help. 
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‘LISTING I. 


rrr A GAME SIMULATION by Chris Zerr. 6/90/84 *xx## KEY: 
OSTR  EQU ‘For v8.79,9.88 
‘See ROM tables for 6.78 
ORG § 9880H 
pomecneeeenennnn wenn nnn SETUP PROCEDURES -------------------- 
START: XRA A ‘SET A=8 
our = «88 ‘DISABLE KEYBOARD 
STA —s DIREC ‘CLEAR DIRECTION 
STA SWITCH : AND SWITCH 
LX] sod, ® ‘MISSILE LOCATION 
SHLD ~—- FLOC : SET TO ZERO 
LX] —H, CLEAR ‘CLEAR SCREEN 
CALL —OSTR 
‘INITIAL POSITION FOR ALIEN 
LX] —-H, 38788 + START SOMEWHERE IN THE 
SHLD = LOC : MIDDLE OF THE SCREEN 
LX] —-H,780H ‘LETS MAKE A BORDER 
CALL TANDB ‘TOP & BOTTOM - DO TOP 
LX] —-H, 7F 88H 
CALL TANDB ‘D0 BOTTOM 
LX] «HH, 7888H 
CALL SIDES ‘D0 LEFT SIDE 
LX] ——-H,787EH 
CALL SIDES ‘DO RIGHT SIDE 
Prone nen n nanan nnn nnn nnn MAIN PROGRAM ------------------------ 
REPETE: LHLD LOC ‘LOAD HL WITH ALIEN LOCATION | UP; 
LDA = SWITCH ‘GET CHANGE SWITCH 
OR A 
J CLOSE ‘IF ZERO, USE LEFT FOOT DOWN 
LX] sD ALTENR » ELSE ALIEN RIGHT 
XRA A : FOOT DOWN 
STA = SWITCH 
UMP = MOVEIT 
CLOSE: LXI —-D,ALTENL ‘ALIEN LEFT FOOT DOWN 
MI A, 255 ‘SET THE FLAG SO WE CAN 
STA = SWITCH » ROTATE THE ALIEN MOVEMENT 
MOVEIT: CALL MOVE ‘MOVE THE ALIEN 
MIs, 78 ‘DELAY ABOUT 1.5 SECONDS 
AA: = MV CséiB 255 »  « DELAY ROUTINE > 
LL: OCR B 
W2  =sLL DOWN: 
DCR C : 
JNZ AR : , 
CALL KEY ‘CHECK KEYBOARD INPUT 
UMP —sREPETE : AND DO IT AGAIN AND AGAIN! 
J Toten eennnn nnn ennnnn END OF MAIN PROGRAM -------------------- 
14 


MISSLE 
4,13 

7 

254 
DOWN 
Ait 

7 

254 
LEFT 
4,9 

7 

254 
RIGHT 
MISSLE 


Loc 
D ERASE 
MOVE 

Loc 

D OFF 83H 
0 

A.M 

94 


LOC 
MCHECK 


Ay! 
DIREC 


‘CHECK FOR "5! 

‘SEND IT OUT 

“GET STATUS 

‘1S IT 52 

‘YES. PUT MISSILE IN MISSILE TABLE 
‘CHECK FOR "9" 


sYES...MOVE THE ALIEN UP 


sCHECK FOR "2" 


‘YES, .MOVE THE ALIEN DOWN 
‘CHECK FOR "4" 


‘YES.. MOVE THE ALIEN LEFT 
‘CHECK FOR "6" 


sTES.. MOVE THE ALIEN RIGHT 
SIF THERE 15 A MISSILE TO MOVE, 
; MOVE IT AGAIN... 


sPROCESS ALIEN TO GO UP 
; BUT FIRST ERASE 
; THE OLD ALIEN 


‘SUBTRACT 128 FROM HL REG 
‘IF WE ARE AT THE BORDER 

; WE DON’T ADVANCE THE ALIEN 
‘CHECK TO SEE IF A MISSILE 

- 1S TRAVELLING- 


; IT 1S SO FORGET IT! 
; IT ISN’T S0- 


- SO, YOU WANT TO MOVE 
- DOUN!? WELL FIRST 
; ERASE THE OLD ALIEN 


GET OUR DOWNWARD OFFSET 


. WE MUST CHECK 
: ONE BELOW THE 
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, 


LEFT: 


RIGHT: 


FIREX: 


D * 
a, 
96 


D ,OFFSH 
D 

D 

LOC 
MCHECK 


A,2 
DIREC 


D ,ERASE 
Loc 
MOVE 
Loc 

H 

A.M 

38 


H 
LOC 


MCHECK 


A,3 
DIREC 


D ,ERASE 
Loc 
MOVE 
Loc 
D086 
D 

A.M 

94 


0 ,@FFFCH 
p 

LOC 
MCHECK 


A,4 
DIREC 
MCHECK 


DIREC 
A 
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; BOTTOM OF THE 

; ALIEN - 

; 10 SEE IF WE ARE AT 

; THE BORDER - 

sWE’RE NOT! 

;SINCE WE ONLY NEED TO MOVE 
; ONE 128 BYTES, WE MUST 


; REMOVE THE EXTRAS FROM ABOVE 


‘MOVE A MISSILE (IF ANY) 

‘IF A MISSILE IS IN PROGRESS 
: DON’T BOTHER WITH THIS NEU 
: LOCATION 

- OUR DIRECTION IS 2 FOR DOWN 


sAGAIN ERASE THE OLD LOCATION 


;D0 THE ERASE 

;REGAIN OUR CURRENT LOCATION 
;DOWN BY ONE 

;THIS 1S OUR CCI COLOR CODE 
;1F WE ARE HERE, WE WILL NOT 
; MOVE 

;BECAUSE WE CAN MOVE 

; BUMP IT DOWN AGAIN AND SAVE 
; THIS PUTS US ON AN EVEN X,Y 
; OR "CHARACTER ,CCI* CODE 


sCHECK FOR MISSILE IN PROGRESS 


sYES..50 RETURN TO THE CALLER 
;OUR DIRECTION 1S 3 
; WHICH 15 LEFT 


;GET OUR LOCATION 
;JUST 6 BYTES TO THE RIGHT 


; 1S ALL WE WANT..NOT THE WORLD 


;D1D WE HIT THE BORDER? 


sSORRY CHARLIE. .ONLY THE BEST 
sNOW BACK UP 4 BYTES 

00 IT 

‘SAVE OUR NEW HOME 


‘OUR DIRECTION 1S 4 
. WHICH 1S RIGHT...RIGHT? 


‘IF A MISSILE 1S STILL IN 
. PROGRESS. .LEAVE 

‘GET 17S DIRECTION 

- IF 2ERO 


R2 + THERE 1S NOWHERE 10 60 


LHLD =>- LO sTHE FOLLOWING WILL 

CP] | ; POSITION THE HL REG 

JZ POSUP + TO POINT AT A LOCATION 
CP] 2 + IN WHICH THE MISSILE 
J2 POSON ; WILL LEAVE THE ALIEN 
CP] 3 

U2 POSLF 

CP] 4 

U2 POSRT 

RET 


)>)---) HOW THE FOLLOWING ROUTINE WORKS 


WHAT I HAVE CHOSEN IS TO LAUNCH A MISSILE 

+ FROM THE CENTER OF THE ALIEN IN WHICH THE DIRECTION 
; OF THE ALIEN IS OR WAS PRESENTLY MOVING. SO FOR OUR 
+ FIRST POSITION, POSUP, WE GET OUR CURRENT LOCATION, 
* THEN ADD 2 BYTES TO 17. THIS WILL THEN BE THE FIRST 
; LOCATION OF THE LAUNCHED MISSILE. 


POSUP: INX H ‘POSSIBLE LOCATIONS ARE: 
INX H 
JMP SAVPOS 
5 
POSDN: LX] D 8258 ; PCPCPC 
DAD D { PCPCPC > 
JMP SAVPOS PCPCPC 
V 
§ 
POSLF: LX] D,8128 
DAD D sHL 1S ALWAYS POINTING 
JMP SAVPOS ; TO THE FIRST POSITION 
; OF THE ALIEN 
POSRT: LX] D 8132 
DAD D 


SAVPOS: SHLD  FLOC ;SAVE THE POSITION 


MISSLE: LHLD  =FLOC ;PLOT THE MISSILE 


MY AH ‘IF HL ZERO, 
ORAL: . THEN THERE 1S NO 
R? . MISSILE TO PLOT 
LDA ~—s«éDIREC 

cls 

J FIREUP 

cel 

J2 FIREDN 

Ot. w8 

J2 FIRELT 

cer 4 

J FIRERT 

RET 
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FIREUP: CALL © MERASE ‘ERASE THE OLD MISSILE MCHECK: LHLD = FLOC sCHECK IF MISSILE 1S 
OX H ‘HL RETURNED UP’ED BY ONE MOV. AH sIN PROGRESS 
LX] 0 ,OFF8@H ‘SUBTRACT 128 BYTES OR oL 
MD =o RET 
SHLD —- FLOC ‘SAVE IT 
| MY OAM MERASE: MV] OM,’ ‘ERASE THE OLD MISSILE 
1 INK HH 
| J2 NOMORE ‘CAN’T PASS THE BORDER Ml oN, 8 
| Ml MLB ‘PLOT THE NEW MISSILE RET } 
| INX =H 
WI OM! USE COLOR OF RED MOVE: MVI = B,3 sPLOT THE ALIEN ON THE SCREEN J 
| RET RU: = MVE C6 sTHIS ROUTINE DOES THE ACTUAL 
COLUMN: LDAX 0D ‘PLOTTING OF THE ALIEN. H&L 
| FIREDN: CALL © MERASE ‘ERASE THE OLD MISSILE MV OMA ; ARE PASSED T0 THIS ROUTINE 
| XO INX oD ; AND THE ALIEN 1S THEREFORE 
| LX] 8128 ; TO PLOT IT DOWN 1 INX oH ; PLOTTED. 
i) 1) : ADD 128 BYTES DCR, oC 
| SHLD —- FLOC 2 COLUMN 
\] MY ALM PUSH = -—B 
CPI «9% ‘WE ARE AT THE BORDER LX] = B,8122 ‘AT THE END OF 6 WE MUST 
} J NOMORE : SO RETURN DADS séiBB ; POSITION OURSELVES AT THE 
il MV] My 118 7 : NEXT LINE, 
INX 4H DCR =séiBB ‘EXAMPLE: 
| Ml oM,2 ‘USE COLOR GREEN IN2 ROW 
il RET RET ‘HL=7008H 
| ; AT THE END OF 4 COUNTS, 
FIRELT: CALL = MERASE ‘ERASE OLD MISSILE j HL=7886H, SO WE ADD 7AH(122) 
ocx 4 ‘TO GO LEFT ; HL=7886H, WHICH IS RIGHT 
OCX 4H - WE MUST SUBTRACT 3 ; BELOW WHERE HL WAS (7808H) 
DCX 4H ; BECAUSE MERASE ADDS ONE 
MW OAM ‘PAINT BORDER------------------------------------------------- 
CPI «9% 
J2 NOMORE ‘CAN’T GO THROUGH THE BORDER 
SHLD FLOL TANDB: MVI C44 ‘TOP AND BOTTOM OF BORDER 
MVI M185 ‘LOWER CASE | MIM, 96 
IX 4 INX =H 
MIM, 5 ‘COLOR MAGENTA MIM, 38 
RET INX H 
DCR 
FIRERT: CALL © MERASE sERASE JNZ — TANDB+2 
IX H ‘INCREASE HL BY ONE RET 
MOV AM 
CP] «9g SIDES: LXI D,128 ;SIDES OF BORDER 
J2 NOMORE ‘SORRY PAL MIC, 31 
SHLD —- FLOC ‘IT’S GOOD! SAVE IT SIDE1: MI M,96 
MIM, 185 IX 4 
IX H MI oN, 38 
Ml oM,?7 ‘COLOR WHITE OX =H 
RET DAD D 
DCR «= 
| NOMORE: LXI =H, 8 sMISSILE NO MORE, SO NZ SIDE! 
| SHLD —-FLOC ;CLEAR IT FROM THE RET 
Hi RET + MISSILE TABLE 
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ALIEN WITH RIGHT FOOT DOWN 
SWITCH: DS “ALIEN SWITCHING 
DIREC: DS ‘MISSILE DIRECTION ALIENR: DB  -—»«-:236,131,238,131,286, 131 
FLOC: DS 2 ‘MISSILE LOCATION DB =-s-:251,131,34,28,191 131 
LOC: 0S 2 ‘ALIEN LOCATION DB 248,131,8,8,71,13! 
CLEAR: DB 8,15, 27,24,12,3, 64,8, 239 DATA TO ERASE THE ALIEN 
ALIEN WITH LEFT FOOT DOWN ERASE: DB 32,0,32,8,32,8 
DB 32,8,32,8, 32,8 
ALIENL: DB 236,131,238, 131,206, 13! DB 32,8,32,8,32,8 
0B 251,131,34, 25,191,131 
DB 116,131 ,0,8,143, 13! END START 


Colorcue will be saying ‘goodby’ ...... 


The next issue of Colorcue, Vol VI, No 6, will be the last for this seven year old publication. Diminishing 
support is the primary reason, along with greatly increased publication costs. We might have simply economized 
on our formatting and means of distribution, but it has been clear that what is most needed is a consolidation 
of effort among the various CCI! organizations. With consolidation, we have an opportunity to maintain our 
activity and still provide the necessary publication services to subscribers. 


The Rochester User Group is the most appropriate center for this consolidation. Its publication, DATA CHIP, 
and its fine user library provide subscribers with a wealth of continuing materials for the Intecolor computers. 


Beginning early in 1985, CHIP will be expanded to include materials normally published in Colorcue. Authors 
will continue to write for publication in CHIP. With this added contribution, CHIP can be a more frequent 
and expansive publication, which it well deserves to be. 


The price of membership in the Rochester User Group has been increased from $10 to $15 per year ($20.00 
USA for overseas) to cover the expanded publication of CHIP. | urge you to lend your total support to this 
effort. Send your check for $15.00 today te 


GENE BAILEY: 28 Dogwood Glen, Rochester, NY 14625 


Your prompt response is necessary for good planning in Rochester, and to be sure you don’t forget and therefore 
miss some of the exciting material ready for release (including a new article by Ben Barlow on expanding 
the disk capacity of the CCII!) Send materials for publication in CHIP to Rick Taubold, 197 Hollybrook Road, 
Rochester, NY 14623. 


The last issue of Colorcue will contain a complete index of the major CCII publications, and a fine set of 
articles recently submitted for publication. It will, no doubt, be a large issue, and will also, with certainty, 
be late. There is a large amount of midnight oil to be burned before it is ready. Meanwhile, | hope we will 
see our first issues of the expanded CHIP newletter. As always, these are your publications, and your active 
support is required to make them valuable to CCII users. The end is not yet in sight, friends! 


A reminder, too, that Australia has been very active lately in the CCII department. You will enjoy a subscrip- 
tion to CUVIC. See Colorcue, Vol VI, No 3, page 31 for membership information. 
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COLORWORD A te-review 
DOUG GRANT 


Doug Grant, the librarian of CUWEST in 
Australia, sent a very enthusiastic letter to 
David Ricketts, the author of the GEMINI 
printer review in the last issue. His subject 
was COLORWORD, the word processor 
distributed by PP] in Australia. Doug feels 
the COLORCUE review was less laudatory 
than it might have been and points out 
specific features of the software that have 
proven valuable to him. 


We are pleased to excerpt it here, with per- 
mission, and print a few examples of type 
from Doug’s Epson printer. 


‘*(Dear David,)..We are about even in 
our standard of Tightwadishness. | took 
a good look at Comp-U-Writer long ago 
and decided that I didn’t want a WP 
which couldn’t use all the codes of the 
Epson printer. I purchased Wordthis 
and Wordthat and Thisaword and That- 
aword and probably got to around 
Comp-U-Writer’s price in total anyway. 
Now, we have a very good programmer 
in our group, Chris Teo who came up 
with COLORWORD, and if you don’t 
send off the $50 to PPI as soon as you 
can drag out your chequebook then you 
just don’t deserve to own a printer as 
good as the Gemini appears. 


‘“(The enclosed page is a printout of a 
disk file I use to demonstrate COLOR- 
WORD’s use of printer control codes) 
and you will see that with expert 
use...you can really get a message 
through. All of these codes are added to 
your text following your pressing IN- 
SERT CHAR, of course, and this in- 
cludes CTL @ and CTL G. ESC ap- 
pears as ‘[’, in blue, and CTL @ and 
CTL G as @ and G in blue. You will 
find out for yourself about the ‘A7’ and 
cic. 


‘‘Have a good look at the review in Col- 
orcue of May/June 1984 but don’t let 
it deter you. We have members who 
have both Comp-U-Writer and COL- 
ORWORD V4.5 who rarely use C-U-W 
except when they require two column 
work or lots of text centering. COLOR- 
WORD misses these two features, but 
Chris will probably come up with that 
later. The only thing you may get a bit 
excited about is that when you go back 
in the text a little way to add a few more 
words here and there, the word wrap 
still does its job but sometimes moves 
the remainder of the line down a line, 
and if you move the cursor past that line 
you may think you have lost a line or 
so. No worries though, you simply go 
back to the beginning of the paragraph 
and hit CMD R to reform the para- 
graph. Even if you didn’t do this, the 


printout would still be correct, as you 
have to hit RETURN twice to force new 
lines anywhere and you can’t lose any 
text without really trying. 


‘*The underline is a true underline and 
not a series of dashes and in editing you 
can use the colour pad to whip through 
by paragraphs or lines in either direc- 
tion. There is no ‘undelete’ so you must 
make fewer errors in this regard. If you 
accidentally hit AUTO you go off into 
a ‘search’ mode but don’t panic, just hit 
AUTO acouple more times and you are 
back to the text again. 


‘*You can set up your Output baud rate, 
double spacing, spaced print, etc. at 
each sitting, but there is a provision for 
you to make up your own text file in- 
corporating all the parameters you wish, 
and load it up when you start work. I 
have 24 good sized letters on one side 
of the disk (initialized to 07) which I 
have in the drive at this moment, and 
I can exit the text and delete any of them 
if | run out of disk space; or put another 
disk in. At the top of the screen I see 
that I still have 12701 characters of space 
left in this text if I want to go on all 
night at my rate of typing, but I won't. 
Oh well; back to the cot for another read 
of COLORCUE. 


‘*All the best to you from, 
Doug Grant.’’ 


INTECOLOR BULLETIN BOARD FOR CCII 


Steve Reddoch’s proposal for a bulletin 
board for the CCl] has not had any 
response from readers. The Santa Barb- 
ara subscriber has prepared a pro- 
gram for free distribution to CCll owners 
in machine language to service both 
300 and 1200 baud. Our two hundred 
users are not enough to support such 
Qa project, it seems, and there are many 
of us who can sympathize with Steve's 
disappointment that this project has not 
seen the light of day. But there has been 
progress! Intecolor Corporation has 
recently announced the establishment 
of a Bulletin Board for all its products, 
including the CCl, 3600 and 8000 com- 
puters. It is located in the Northwest USA. 
The telephone number is (206) 4833460, 
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and the Sysop ( ‘System Operator’) is 
Bob Morgan, an Intecolor dealer. While 
it is a CP/M board, TERMI software 
should work well. We encourage you to 
take advantage of this new opportuni- 
ty. The board will also include news on 
Intecolor’s DataVue computers. These 
are being offered at a special price to 
CCIl owners. They are CP/M machines, 
with built-in hard disks and full CP/M 
features. The computer is available 
without a terminal, and the CClIl may be 
used as a terminal with it. Software is 
available for the terminal conversion 
from Rick Taubold and Tom Devlin, 
which they developed with Myron Stef- 
fy for interfacing with the Morrow com- 
puter line. 


KEYBOARD UPGRADES 


It's not too late to upgrade your CCIl 
keyboard to the full 117 keys. Howard 
Rosen (PO Box 434, Huntington Valley, PA 
19006) has enlarged keyboard covers 
available for $20.00 and switches for $2.00 
each. Key caps may be ordered from Arkay 
Engraving (see last issue). Intelligent Systems 
Corporation in Huntsville has some of the 
same materials. Give them a call at (205) 
881-3800 or write 12117 Comanche Trail, 
Huntsville, AL 35803. 


John Ker in Los Angeles is a network 
subscriber. His Compuserve network 
address is 71735, 1673, and his Source 
address is TCP733. Welcome aboard, 
John I’ve enjoyed our modem talks. 
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Control CODES for COLORW ORD and EPSON with GRAFTRAX 


ROM Set. 


ESC 4 turns on fltelics 
-SC Si turns off Italics 


AY an hurns an ery] carvacyee cd characters 
BLWE KEY turns off enlarged characters 


BL /A/ OFF turns on condensed characters 
GREEN EEY turns off condensed characters 


im ™ 
£9 63 
3 43 
SM 


hkurns on emphasized characters 
turns off emphasized characters 


ESC G turns on double character 
-SL OH turns off double character 


ade, 2 LUNs Of supwecri pe made 
ESC S followed by CONTROL & turns of Frere e  made 
cate Ft burns off Subsaript ar Superscript mode. 


ESC © gives 8 lines per inch 
St 2 gives & lines per inch 


ed 


oS turns an Underline 
ESC - followed by CONTROL (2. turns of f Underline 


Control G Sounds the FPrinter Rell. 


ESC ig Initializes the Frinter and resets the tap 
posithkian. 


2 
a 


COMBINATIONS ©F VARIOUS [OM TEE 
GIVE VARIOUS RESULTS 
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form 


C7. C4 0 Ee i 


PLUS 
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tINY — PASCAL cess 


This final part of the series is dedicated to the ‘bread-n- 
butter’ Tiny-Pascal commands. We can not hope to give a 
textbook treatment of these commands, so we will restrict 
ourselves to some typical examples of their use. Your 
familiarity with other programming languages, and the use 
of a good Pascal tutor will enable you to understand and 
apply our contents on the CCII. 


A NEW SCREEN EDITOR 


A new tool is now available to help in the exploration and 
implementation of Tiny-Pascal on the Compucolor in the 
form of a full screen editor, written by Bill Greene, and 
housed in the Chip Users Group Library. This editor 
significantly reduces the task of entering and editing both 
Forth and Tiny-Pascal programs on Forth screens. The 
screen editor, along with two Forth disassemblers and an 
8080 assembler are contained in screens on Chip Disk #121. 
This disk complements Bill Greene’s implimentation of 
Forth, called Forth8, contained on Chip Disk #120. The 
editor, and any of the other features, may be compiled into 
the Forth8 core program and saved on disk as an augmented 
version of Forth (call it FORTHE.) The screen editor is not 
compatible with Jim Minor’s version of Forth on Chip Disk 
#46. However, the editor can be used to enter and edit Tiny- 
Pascal screens. On the other hand (all confusion aside, 
folks), Jim Minor’s Tiny-Pascal compiler, which resides in 
screens in Chip Disk #83, can be compiled into Greene’s 
Forth8 and saved as an augmented version of Forth8 (and 
call it FORPAS.) It is unfortunate that both the screen editor 
and the Tiny-Pascal compiler can not be compiled into the 
same Forth version, due to memory requirements, but us- 
ing them in two separately augmented versions each will 
facilitate Tiny-Pascal operations. a) Use FORTHE to enter, 
edit and save the programs, and b) use FORPAS to com- 
pile and run the programs. 


If this seems too much, use the line editor already describ- 
ed previously in these articles, or you can send two disks, 
and $2.00 for return postage, to the author at the above ad- 
dress for these new materials and instructions. Be sure to 
specify your FCS version, and add $10.00 to have Chip supp- 
ly the disks. The four sides you receive will contain Chip 
Disk #120, #121, FORTHE/FORPAS, described above, and 
all the program examples in the Tiny-Pascal series. Back up 
the disks when you receive them. [You do realize what a 
bargain this is! Two languages for the price of none. ED] 


TINY PASCAL COMMANDS 


It is called ‘Tiny-Pascal’ because it contains a subset of the 
fully-implemented version of the language. This subset is 
sufficiently complete to allow for effective programming in 
many instances. When viewing Tiny-Pascal you will find 
many commands similar to those of the more common Basic 
language dialects, such as IF..THEN..ELSE and 
FOR..TO..DO. Other commands are found only in very ex- 
tended Basic dialects, like BEGIN..END, WHILE..DO, 
REPEAT..UNTIL, CASE..OF, and the PROC and FUNC 
structures. 
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You will learn best by working the examples at the com- 
puter. Most examples have been limited to a single screen 
to conserve time for entry and editing. You must carefully 
observe the punctuation and program structure as it is shown 
in the listings. Review Part 2 of this series in Colorcue, Vol 
VI, No 3 to remind yourself of the commands already 
covered, like WRITE, READ, and NEWLINE. 


This version of Tiny-Pascal is intimately intertwined with 
the Forth language as well, as we have seen, which is used 
to facilitate program execution. Defining Forth commands 
in such a way that they may be injected into Tiny-Pascal 
makes the programs significantly more versatile and useful. 
In mastering Tiny-Pascal, there is great incentive to master 
Forth, one language helping to clarify the other. We will 
demonstrate, this in some examples. 


The Pascal statement format is very important. Pascal 
commands are used in both single and compound statements 
in the listings. Single statements use a command word 
followed by a semicolon (;). A compound statement begins 
with a BEGIN and ends with an END and semicolon, sur- 
rounding multiple command words and their arguments. (If 
a compound statement is the last statement before an END, 
the trailing semicolon may be omitted. This is the only place 
where the semicolon is optional.) These compound 
statements form a functional sector, much like a subroutine, 
and which holds the great strength of a structured language 
like Pascal. Such a structure makes reading programs, 
without line numbers, fluent and logical. 


To combine the functional sectors into a unified program 
we group them into a ‘block’. The block is terminated with 
a period (.) to tell the assembler where the program ends. 
You will see in the examples that compound statements may 
be nested within a block. 


We use two types of comment delimiters in Tiny-Pascal, 
() for Forth and // for Pascal. Our programs always begin 


.in the Forth domain, so the parentheses will be seen there. 


Following the Forth word PASCAL, we are in a Pascal en- 
vironment, and the slash must be used, since parentheses 
are not defined as comment delimiters in Tiny-Pascal. Note 
that a space between the delimiter and the comment is re- 
quired in Forth, but not in Pascal. Finally, following the 
Tiny-Pascal END statement, the computer is returned to the 
Forth environment, and rules for Forth will again prevail. 


Each of the sample programs explores a different major 
statement function. The WHILE..DO and REPEAT..UN- 
TIL statements are shown in Listings 1 and 2 respectively. 
Note that the WHILE and UNTIL are followed by a con- 
ditional expression (telling ‘while’ and ‘until’ what?) which 
is either true or false. (Conditional expressions are familiar 
to Basic programmers from their use in the IF.. THEN for- 
mat.) Examples include ‘X = Y’, ‘U greater.than V’, and ‘Z 
not.equal A.’ Note also that no colon is used in a condi- 
tional expression before the ‘equals’ sign as it is in the assign 
statement. In the WHILE..DO statement, a ‘true’ condi- 
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DOUG VAN PUTTE 


tion will cause the statement following the DO (whether 
single or compound) to be repeated until the conditional ex- 
pression becomes ‘false.’ The ‘true’ condition invokes a 
looping effect, similar to the FOR..NEXT statement in 
Basic. When the conditional expression becomes ‘false’, pro- 
gram control will be advanced to the point following the 
semicolon (;) just after the statement associated with the DO. 
The final ‘;S’ in this and other listings is a FORTH com- 
mand (remember we are back in the FORTH environemt 
after the END. appears!) This FORTH symbol has various 
meanings in different circumstances. Here it means simply 
‘stop execution of screen and go back where you came 
from.’ 


Although similar to WHILE..DO, the REPEAT..UNTIL 
statement has one basic difference; for a given conditional 
expression, the statements following REPEAT will be ex- 
ecuted one time more (than in WHILE..DO) because 
WHILE..DO tests the conditional before executing the 
statements, and REPEAT..UNTIL tests the condition after 
executing the statements. Following a ‘false’ condition, con- 
trol is passed to the first statement following the first 
semicolon to appear after the UNTIL. 


Experiment with the programs of Listings | and 2 by first 
loading the FORTH editor. Then, using a disk with blank 
screens,use the editor to type and save the program on a 
screen of your choice. Now, load the Tiny-Pascal compiler 
from its disk and run it. Reload the screen disk. Type the 
program screen number followed by ‘LOAD?’ and a carriage 
return. This will compile the program. If the compiler finds 
an error, the screen editor must be reloaded and the code 
corrected. When the code has finally compiled correctly, it 
may be ‘run’ by just typing the program name (such as 
"WHILEEXAMPLE’). Follow similarly for all the other 
listings. 


SCR # 15 
© ( BLISTING 13 WHILE DO EXAMPLE ) PASCAL DECIMAL 
1 PROGRAM WHILEEXAMPLE?} 


2 VAR 

3 Xs Ye SQUARE $ INTEGERS 

4 BEGIN 

re) NEWLINE? WRITE ( “ENTER NO. TO SQUARE ’ )3 
) READ ( @Y )% 

7 X s= 1s 

8 SQUARE <= 0% 

9 WHILE X <= Y DO 

10 BEGIN 

11 SQUARE $= SQUARE + Ys 
12 KX 3=X #1 
13 END?> 


14 NEWLINE WRITE ( @Y¥s *° SQUARED IS ’” » @#SQUARE ); 
15 END. ¢S 


In contrast to the looping statement types we have just 
discussed, the IF..THEN..ELSE statement, demonstrated 
in Listing 3, is designed for branching, just as in BASIC, 
and the statements which follow are executed only once. In 
this statement format, a ‘true’ conditional will cause action 
by the statements assigned to THEN, passing next beyond 
any statements allied with the ELSE. Otherwise action will 
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O ( KLISTING 2: REFEAT UNTIL EXAMPLE ) PASCAL DECIMAL 


1 PROGRAM UNTILEXAMPLES 


2 VAR 

3 Xe Ye SQUARE : INTEGERS 

4 BEGIN 

Ma) NEWLINES WRITE ¢( “ENTER NO. TO SQUARE ” )? 
6 READ ( @Y )% 

7 X $= 16 SQUARE s= 03 

8 REPEAT 

9 BEGIN 
10 SQUARE $= SQUARE + Y5 
11 X s= X +1 
12 END> 


13 UNTIL X > YS 


14 NEWLINE’ WRITE ( @Y¥»s * SQUARED IS ” +» #SQUARE )3 


15 END. #S 


SCK # 17 
PROGRAM IFTHENELSEEXAMFLE? 
CONST 
X = 73 
VAR 
Y + INTEGERS 
BEGIN 
NEWLINES WRITE (*GUESS A NUMBER (1 TO 10)’ 5 
KEAD ( #Y D5 
NEWLINE s 
10 IF (Y¥ <> X) 
11 THEN 
12 WRITE( “SORRY: WRONG NUMBER ’ ) 
i3 ELSE 
14 WRITE ¢ ’YES» THE NUMBER IS ’% » @X 
15 END. #S 
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derive from the statements associated with ELSE, then con- 
tinue onward. The ELSE portion is optional, which means 
it may be omitted. In this instance, the IF.. THEN rules app- 
ly just the same as before (just as they do in BASIC.) 


FOR..DO is very similar to the FOR..NEXT loop in 
BASIC, and is illustrated in Listing 4. DO is usually followed 
by a compound statement, but single statements are accep- 
table. What is ‘done’ lies in the commands between DO and 
the first semicolon (which is at the end of line 12 in our ex- 
ample). From there, the program advances to the next com- 
mand. Notice that if one enters ‘0’ or ‘1’ in this program 
as a response to line 8, the DO function will not be honored 
because it asks for a ‘Y’ greater than or equal to ‘2’. (The 
correct factorial will be printed in these cases, however.) It 
is possible to step down in a FOR..DO statement. The syn- 
tax in this instance, in line 11, would be.... 


‘FOR X := 2 DOWNTO Y DO’. 


A flexible and interesting branch command is the 
CASE..OF..ELSE command illustrated in Listing 5. Depen- 
ding on the integer or string value of the expression follow- 
ing CASE, the line following OF which begins with this value 
will be executed to the first semicolon. An ELSE provision 
is available with this command also, as illustrated in line 
13. Note that an END statement is required to mark the end 
of the CASE options (see line 12; it terminates the OF path, 
so to speak). Compare the punctuation in this listing and 
Listing 3. 
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( LISTING 3: IF THEN ELSE EXAMPLE ) PASCAL DECIMAL 


SCR # 18 
O ¢ LISTING 43 FOR DO EXAMFLE ) 
1 PASCAL DECIMAL 
2 PROGRAM FORKLOOFEXAMFLE + 
3 VAR 
X $ INTEGER? 
Y $ INTEGER? 
FACTORIAL $: INTEGER? 
BEGIN 
NEWLINE$ WRITE (’ENTER NUMBER FOR FACTORIAL (<8) 7% D9 
READ( &Y + 
10 FACTORIAL t= 13 
11 FOR X <= 2 T0 Y BO 


SUBSCRIBER WRITES.... 


Subscriber Vance Pinter owns an 
IBM-XT he purchased to use in his 
daily office work and “hasn't 
regretted it for a minute.” He in- 
cluded the color monitor to ease 
the transition from four years of 
CCIll experience in his practice of 
law. The old machines are still us- 
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12 FACTORIAL t= FACTORIAL # X3 
13. WNEWLINES WRITE (“FACTORIAL OF ’s #Y¥r ’ IS “’ » @FACTORIAL Ds ed at home, for fun. Vance is 
14 END. 3S especially interested in hardware 
1S articles and has added many op- 
tions to his CCIl, including lower 
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case, the 4000H ram card by Tom 
Devlin, Frepost Computer's 16K 
RAM add-on, a bell, and second 
disk drive. He noticed an improve- 
ment from the disk drive modifica- 
tions recommended by John 
Newman (Feb/Mar and Jun/Jul 
1983). 


0 ( SLISTING 5: CASE OF ELSE EXAMFLE ) FASCAL DECIMAL 
1 PROGRAM CASEEXAMPLE?S 

2 VAR Y ¢ INTEGERS 

3 BEGIN 

4 NEWLINE? WRITE ( “ENTER A NUMBER (0-2) ’% D5 

~ READ ( #@Y )% NEWLINES 

é IF (CY > -1) AND (CY < 3)) 

7 THEN 

8 CASE Y OF 


9 O : WRITE( “THE NUMBER YOU ENTERED IS ZERO ’ 5 if 

10 1: WRITE( “THE NUMBER YOU ENTERED IS ONE ’” )5 The Dynamic Ellipse Doodler 

11 2 $ WRITE( “THE NUMBER YOU ENTERED IS TWO ’” ) by Tom Napier was fun. | keyed it 

43 eae in Sunday A.M. and it worked first 

14 WRITE( “SORRY: WRONG NUMBER! ’ ) try.” Vance says he has thought of 

15 END. $S selling the old machines but just 

. eieat E@aMe Ti Tie sae Rode to oe UU! can't bring himself to do it. (I 
SCR # 20 heard a whisper of regret from the 

O ( LISTING 63 FROCEDURE EXAMPLE ) FASCAL DECIMAL Suits family not long ago that they 

1 PROGRAM PROCEDUREEXAMPLES 

2 VAR Xv» Ye SQ ¢ INTEGER? no longer had the GOM on hand. 

3 PROC GETNO} ED) 

4 BEGIN NEWLINE? WRITE( ENTER NO.(<182) TO FIND SQUARE» O TO STO 

SP’) READC&Y)$ NEWLINE$ END) 

6 PROC SQUARE(Us V $ INTEGER )3 

7 BEGIN SQ 3+ O¢ U t= 13 ; 

eB WHILE (U <= V) DO BEGIN SQ t= SQ + Vi U t= U + 1 ENDS CRT INTENSITY CONTROL 

9 ENLs 


Instructions for mounting a front 
panel potentiometer to control 
CRT intensity have been prepared 
by subscriber Norman Johnson. A 
copy is available by writing to 


10 PROC PRINTNO? 


11 BEGIN WRITE(’ THE SQUARE OF ’@Yr’ IS ’s#SQ) ENLs 
12 BEGIN \ MAIN \ 

13 REPEAT BEGIN GETNOs SQUARE( Xs Y )¢ PRINTNOs END 
14 UNTIL SQ = 03 

15 END. ( END MAIN ) 


Note that the procedure SQUARE is the only one with 
a parameter list. In Pascal, this is a way of ‘passing’ a value 
or a number of values, back and forth between the main 
program and its procedures. The CALL to the procedure 
SQUARE, in the main program, also has a parameter list. 
The parameter list in the PROC and FUNC statements are 
optional, but if used, it must appear in both places. The 


The PROC (procedure) command is the single, most im- 
portant concept in Pascal for creating a structured program. 
In a ’top down’ structured programming approach, the func- 
tions of a program are separated into modules, each one 
programmed and tested separately, then joined together into 
one complete program. This removes complex debugging 
from program development, for if each parts works correct- 


ly, the whole will operate correctly. 


To use a procedure, it must be defined before the pro- 
gram proper begins, and it may then be ‘called’ as many 
times as needed. Listing 6 demonstrates some sample pro- 
cedures following the VAR and CONST commands. Here 
a procedure was written for each main part of the program. 
READNO reads in a number to be squared. SQUARE ac- 
tually computes the square. PRINTNO prints the input 
number and its square to the screen. See how simple the main 
program becomes! The procedures are ‘called’ in the com- 
pound statement which follows the REPEAT command. 
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names in the parameter list need not be the same, but their 
position in the list is important. This kind of parameter 
listing makes processes in the extended Pascal language ’por- 
table’ from one program to another, without renaming the 
variables they contain. Inserting variables in the right order 
is critical, however. 


While full implementations of Pascal accommodate such 
a parameter list, in Tiny-Pascal, there is no provision for 
returning them. This is probably an oversight by its designer, 
Zimmer (or perhaps a deliberate part of the design!) So the 
result, SQ, is ‘stuck’ in the process. This really makes the 
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SCR @ 21 
ANOTHER RETURN TO FCS O ( SLISTING 73 FUNCTION EXANFLE 1 ) DECIMAL $ CLS 12-EMIT 3 
| 1 © VARIABLE FUNCTIONVALUE $ VALTOSTACK FUNCTIONVALUE @ #%. PASCAL 
Chris Zerr submits his favorite way 2 PROGRAM FUNCTIONEXAMFLE$S VAR XsArBrCrZtSINTEGERS 
of returning to FCS or any other 7 Eee UREA NAC XVAL PAVAL p EVAL sCVAL? INTEGER) 5 
N : 

ESC [vector] from an assembly S  FUNCTIONVALUE $= AVAL¥XVALAXVAL+BVALEXVAL+CVAL$ VALTOSTACK3 
program. It is only applicable to 6 ENDS 
v6.78 computers, however. If you d abt ae \ MAIN PROGRAM \ 
first fill the A register with the vec- 9 BEGIN NEWLINES NEWLINE$ NEWLINE? 
tor code, such as [D] for FCS, [E] 10 WRITE( “ENTER Xe Ay By & C TO EVALUATE (AXT24BX4C )K249 % D3 
for Basic, [P] for 4O00H, etc. If pro- rs REAL( @X+#As@Bbe8C )¢s NEWLINES NEWLINES 

sa Z t= QUADKATIC( XsAsBsC) & 2 + 93 
grams are ORIGined at 8200H 13 WRITE( THE Z VALUE IS ’+82) 
they will be damaged by this 14 ENDs UNTIL (X=0) 


method. The routine that com- 15 END. ( MAIN >) DECIMAL §$S 
pletes the exit is located at O53AH 
in v6.78. A similar function has not 


been identified for v8.79 as yet. 


SCR @ 22 
O ¢ HLISTING 83 -FUNCTION EXAMPLE 2 ) DECIMAL ¢ CLS 12 EMIT + 


. 7 1 © VARIABLE FUNCTIONVALUE $ VALTOSTACK FUNCTIONVALUE @ ¢# PASCAL 
Here is a sample code: 2 PROGRAM FUNCTIONEXAMFLE$ VAR XsAsBreC3 INTEGERS 
3 FUNC QUADRATIC( XVALPAVAL » BVAL eCVALS INTEGER )3 
eee uy egetar eT es lee 4 BEGIN 
START: CALL FEVIN: ibet Kevncara input 5S _ FUNCTIONVALUE $= AVALAXVALSXVAL+BVAL#XVAL4CVAL$ VALTOSTACK} 
CP} Dp ‘Do some 6 END: 
12 EXIT + error : ete \ MAIN PROGRAM \ 
CF} ec ; checking... 9 BEGIN NEWLINE$S NEWLINES 
1 EXIT 10 NEWLINE# WRITE(’ENTER Xe As By & C TO EVALUATE AXT24BXHC ‘D3 


11 READ @X+#A,8B,€C)$ NEWLINES NEWLINES 
12  WRITE(’THE QUADRATIC VALUE IS ’ s#QUADRATIC( XArBrC)) 
: [Error routines here] 135 END 
14 UNTIL (X=0) 
15 END. ( MAIN ) DECIMAL 65 
EXIT: PUSH PW 


MIA? 


sSave registers 
sClean up the screen 


SCR # 23 
CALL. 28 O ¢ LISTING 93 MEMC J EXAMPLE ) $ CLS 12 EMIT 3 
; . 1 $ HOME 8 EMIT 11 EMIT # FASCAL DECIMAL 
POP Pm jRestore registers 2 PROGRAM POINTPLOT} 
SMP) BS3AH Exit program 3 CONST SCREENSTART = 286723 
4 VAR Xe Yo Z $ INTEGERS 
5 FUNC PLOT( XVAL + YVAL? INTEGER D8 
6 BEGIN 
7 IF (¢ XVAL>-1) AND (XVAL<64) AND ( YVAL>-1) AND ( YVAL<31 )) 
Colorcue. We advise that while 8 THEN MEMCSCREENSTART+X824+Y8128] t= 42 
the project is simple, it should not +s sake BEGIN WRITE( “RANGE ERROR ’ 2 Z $= 1 END 
be undertaken by inexperienced 1i BEGIN: Z t= 0} CLS} 


hands. Damage to the CCll 12 REPEAT BEGIN HOMES WRITEC’ENTER Xe¥ % D3 
and/or injury through shock to the | wae 
installer is a potential danger. 15 END. 3S 


parameter list for a PROC in Tiny-Pascal superfluous, and us to define a FORTH variable in which to store the value 


we suggest that you not try use one. It really isn’t needed 
since the variables defined in the VAR statement, in the 
declaration part of the program, are ‘global’ type variables 
(that is; accessible to all parts of the program, as opposed 
to just a particular process.) So in Tiny-Pascal, the portabili- 
ty concept is lost, an unfortunate, but not serious, 
circumstance. 


A subset of the PROC command, in Tiny-Pascal, is 
FUNC, the function command. For this command, we have 
devised a way to circumvent the direct inability to pass values 
from a procedure back to the main program. The ‘function’ 
is defined in Pascal to compute a single value, whereas a 
PROC may compute any number of values. The procedure 
SQUARE may be written as a function instead. Alas, in 
Tiny-Pascal, procedures and functions are defined in the 
Same way, and we are stopped again from returning 
parameters. FORTH comes to the rescue here by allowing 
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of a function, and then define a means of placing that value 
on the FORTH stack so that it may be used in an equation. 
The FORTH code to accomplish this appears in the second 
line of Listing 7. 


To use a FUNC in this way (for otherwise it is the same 
as a PROC), simply code the second line of your screen in 
a fashion similar to Listing 7. (Those interested in understan- 
ding the commands may refer to the FORTH definitions 
in a suitable reference.) The function, like the procedure, 
is defined in the first lines of the program (line #1 of Listing 
7.) Its purpose is to clear the CRT whenever it is called. Note 
that the program in Listing 7 requires four input values. 
Separate the entry of each value with a carriage return. 
(Commas must not be used to punctuate inputs to any of 
the programs in this article.) 


In general, FORTH may be used to extend the power and 
versatility of Tiny-Pascal by using FORTH to define com- 
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SCR # 24 SCR # 25 
O ¢ &SLISTING 10: INC J] EXAMFLE ) O ¢ KLISTING 11% ARRAY EXAMPLE ) O VARIABLE N $ COLOR N @ EMIT $ 
1 PASCAL DECIMAL 1 : BON 31 EMIT ¢ $ BOFF 15 EMIT & + CLS 12 EMIT + 
2 PROGRAM INTESTs 2 PASCAL DECIMAL 
3 VAR AS: INTEGERS 3 FROGRAM USEARRAY 
4 BEGIN 4 VAR IAs IBS ARRAYC8] OF INTEGERS 
ra REPEAT REAIK AS) a Croley ZS INTEGERS 
é UNTIL AS INC 30+29’Y’ Js 6 BEGIN 
7 REFEAT REAL AS) 7 IAC 1 38=146% IAC 2 Js217F IAC 3 3:=18% IAC 4 Ji=193 
8 UNTIL AZ INC 30+2%’E’ J% 8 IAC 5 J2=20% IAC 6 Jee21s IAC 7 JV=22% IAC B J+=2335 
9 REPEAT REAL AS) 9 IBC 1 Ji=’B’s IBC 2 382825 IBC 3 J:=715 IBC 4 Jt= “Y's 
10 UNTIL AZ INC 30t2"’S’ J 10 IBC 5 1:=68% IBC 6 J:=80% IBC 7 J:=67% IBC 8 J3=875 
11 END. 3S 11 CLS% 
12 12 WHILE C<>’F’ DO 
13 13 BEGIN 
14 14 NEWLINE# NEWLINE? Z$=0%8 Ii=15 
15 15 


mands which then become part of the FORTH/Tiny-Pascal 
dictionary. In addition, the core directory of FORTH, once 
mastered, may be referred to in creating special effects not 
obtainable otherwise through its own basic commands. This 
kind of language is said to be ‘‘extensible.”’ 


Listing 8 is a modification of Listing 7 showing an alter- 
nate way of referring to a FUNC so its output may be ’pass- 
ed’ back to the program. 


Our next two commands are not present in extended 
Pascal. MEM is used in Tiny-Pascal to place a value in an 
absolute memory location. The program of Listing 9 uses 
MEM tto ‘plot’ (as in Compucolor: PLOT 3) using screen 
memory. MEM uses the [ ] style of delimiter to contain the 
memory address. We set MEM[addr] to a legal value (us- 
ing :=) between O and 25S. 


[Note: The MEM command did not function until screen 
#39 of the Tiny-Pascal compiler was altered. The ‘!’ word, 
which follows the word COMPILE, must be changed to 
‘C!’. Note that CLS is also defined in FORTH, ahead of 
the Pascal program, to use later to clear the screen. If you 
haven’t surmised already, 12 EMIT is the same as PLOT 
12, in Basic. Note on the following line another FORTH 
word, ‘HOME’, is defined by using ‘8 EMIT 11 EMIT” 
(PLOT 8 PLOT 11), to return the cursor to the upper left 
corner and erase the line.] 


The IN command allows one to check a single keyboard 
character for a match with a list of possibilities within [ ] 
delimiters. Only ASCII numbers or their single character 
string equivalents, enclosed in single-quotes, are permitted 
in the brackets. Listing 10 presents an example of this com- 
mand in usé. When the program is ‘run’, it screens the 
keyboard for the single characters ‘Y’, ‘E’, and ‘S’, in that 
order. Any other input is ignored. 


Our last program example, the use of the integer array, 
is demonstrated in Listings 11 and 12. This is our only ex- 
ample employing two screens working together. This pro- 
gram makes liberal use of FORTH-defined commands, to 
execute the equivalent of BASIC’s PLOT command. In the 
program, two parallel arrays are defined by assignment. One 
array contains single character strings or ASCII values, and 
the other contains the equivalent of BASIC’s PLOT 
numbers. The user is asked to choose a color by selecting 
a single letter key. With a simple table ‘look-up’, controll- 
ed by a WHILE..DO sequence, the ASCII value of the let- 
ter is sought. When it is found, the value at the same index 
in the parallel array is used to set the color, prior to screen 
printout. Screen 25 has no final ‘;S’ so the program con- 
tinues on to the next screen. 


Tiny-Pascal has provision for most commonly-used 
operators. These include MOD, NOT, OR, SHL, SHR (shift 


CHIP REPAIR NETWORK FOR THE CCl 


A network of private service facilities is being formed 
wilh the helo of Intecolor Corporation, who have of- 
fered to assist us by supplying a parts inventory. So far, 
three locations have been designated. | have confir- 
mation on only the first two listed here. You are invited 
fo contact these service personnel regarding CCl 
repairs. All three come highly recommended, and all 
three have had extensive experience. 


steve Wooten: 155 Barington Street, Rochester, NY 
14607. Telephone: (716) 442-4914. Call evenings. 


steve charges $20.00 per hour if he fixes your Com- 
puter. There is no charge if he doesn’t. Customer pays 
for parts and shipping both ways. 
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Gary Sipple: 27750 Golfview Street, Southfield, M' 
48034. Write to Gary for details. 


Bill Freiberger: Box 207, Mountain Lakes, NJ 07049. 
Telepnone: (201) 263-2859 Write to Bill for details. 


When having a CCll repaired the biggest hurdle is in 
the shipping. Severe damage has occurred in the past 
to computers improperly packaged. It is your resoon- 
sibility to prepare the computer properly for shioment. 
Make certain that you consult with the repair agent 
you select before making shioment. The cathode ray 
tube, #13VAXP22, Used in the CCll was proprietary and 
is NO longer available! 
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SCR #@ 26 
O N SLISTING 123 ARRAY EXAMFLE CONTINUED \ 


1 WRITE( “ENTER COLOR TYFE (Bek eGr¥rDisPsCoW)? F-END * )#REAICC)> 
2 WHILE Z<>1 BO 

3 BEGIN 

4 IF C=IBCIJ THEN 

= BEGIN NisIAC I J Zi=1 

6 ENIis 

7 I:=I41% IF I>9 THEN Z3= 

8 END» 

9 NEWLINE$ NEWLINEs COLORs 
10 IF 1<10 THEN WRITE(’ THIS REPRESENTS THE COLOR CHOSEN % ) 
ii ELSE 

12 BEGIN BON$ WRITE(’ENTRY ERROR % 29 BOFF 

13 ENTS 


14 ENDs C3=’ B’ 
15 ENU. DECIMAL $S 


bits left or right), ‘less than’ (and ‘or equal to’), ‘greater 
man’ (and. ‘or equal to’), ‘=’, ‘+’, ‘-’, ‘*’, DIV, TRUE, 
and FALSE. 


There are several commands in Tiny-Pascal we have not 
covered, such as TYPE and CALL. CALL is supposed to 
be a FORTH routine to ‘call’ non-alphabetic routines in 
Tiny-Pascal. Perhaps it will be the subject of a future arti- 
cle in DATA CHIP. The TYPE command does not func- 
tion in the normal Pascal sense, so no immediate explana- 
tion of this command is available. 


There is greater depth to Tiny-Pascal commands than has 
been conveyed in these articles. A more thorough explana- 
tion may be found in Jim Minor’s Tiny-Pascal documenta- 
tion in the PASCAL Syntax Diagrams. You may have copies 
of this material from the CHIP library. 


This ends our Tiny-Pascal series in Colorcue. I apologize 
to those of you who have been ‘stumped’ by some features 
of Tiny-Pascal because of insufficient coverage here. Feel 
free to telephone me, evenings, at (716) 889-4994, if you 
would like to explore any particular feature in greater depth. 
My very best wishes to my friend, Joe Norris, and my heart- 
felt thanks to him for his contributions to the Compucolor 
Community by piloting Colorcue during its last year (J. 


BACK ISSUES 


Vol VI, numbers 1 and 2 are out of print. 
They will be available in Xerox form at 
$4.00 each if requested. 


CHIP Library Reviews 


We are interested in having your review 
of CHIP library holdings which you have 
found useful. Describe what the pro- 
gram does and how you use if. Include 
games, utilities, languages, etc. 
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COLORCUE CONTEST 


Not one entry! The prize money will be 
returned to Colorcue’s publication ac- 
count. Shame! Shame! 


SOFTWARE STILL AVAILABLE 


You may still purchase CCll software 
from Intelligent Computer Systems in 
Huntsville, AL. The Muellers are per- 
manently in the United States and are 
pursuing a diversity of activities involv- 
ing Computers and alternative energy 
sources. It is very considerate of them 
fo maintain the CCll software library for 
us even though it must be more a 
nuisance than a business at this point. 
They are a good source for diskettes at 
Q very low price. 


Glen Gallaway ‘found!’ 


Intecolor 8000 users will be happy to 
know that Glen Gallaway, the 8000 
coordinator, has been ‘found’ again, 
following some confusing address 
changes. His new address is 1637 
Forestdale Avenue, Beavercreek, OH 
45432. Glenn is relocated now and is 
looking forward to some permanence. 


Work continues to compile a useful set 
of memory addresses for conversion of 
CCIl programs to the 8000 series com- 
puters. All 8000 users are invited to par- 
ticipate. Write to Glen at the above ad- 
dress if you are ready to help. 


Tom Teaser! 


Tom Napier wants to know if any 
readers can, without using the 
MVlinstruction, or making any 
preconditions, load the A-register 
with ‘06’ using only 2 bytes! 


TECH TIP, DISK DRIVES 


One user had a problem with his disk 
drive that turned out to result from a 
drive belt near the breaking point. 
Doug Van Putte has found a source of 
drive belts for the CCIl. Try Floppy Disk 
Services, 741 Alexander Road, 
Princeton, NJ 08540. Their phone 
number is (609) 799-4440. Ask for a stan- 
dard 5-1/4” Siemans drive belt. 


CONNECTING EXTERNAL DRIVE 


Gary Dinsmore has submitted plans for 
connecting an old internal drive as a 
second CCll drive. If you have such a 
drive available, Colorcue will be hap- 
py fo send you a copy of his procedure 
for its installation. 


NEXT ISSUE: CCIl publications index; 
reviews of software by Bill Stanton 
and Wallace Rust; a captivating 
program adaptation by Tom 
Napier (a magnum opus ‘Cuties’); 
an article on Recursion by Doug 
Van Putte; W. S. Whilly’s final install- 
ment on debugging, a biographi- 
cal sketch of Peter Hiner, and more. 
Get your contributions in promptly 
for our last issue! 
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HARRY J. KEROP 
76 RATTLING VALLEY ROAD 
DEEP RIVER, CT 66417 


KEN KERRISON 
5 BELTANA ROAD/PIALLAGO A.C.T 
AUSTRALIA 2689 


ALDOLPH KLUKOVICK/KAY ENTERPR 
2325 KINGSBRIDGE LANE 
OXNARD, CA 93838 


WILLIAM G. KNAPP 
1761 CARMEL DRIVE 
IDAHO FALLS, 1D 83482 


PAUL D. KOERBER 
17898 SAN BRUNO/APT 623 
FOUNTAIN VALLEY, CA 92768 
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FREDRICK G. KOMMRUSCH 
9678 N. PARADISE LANE 
MILWAUKEE, WI 93289 


DR C. W. KREITZBERG 
2311 N. FEATHERING ROAD 
MEDIA, PA 19863 


DENNIS L. LEPARD 
128 S, ELLINGTON 
DEPEW, NY 14843 


A. LEWIS 
PQ BOX 228/ PARABURDOO 6754 
AUSTRALIA 


GOTE LILJEGREN 
MARGARETAV 12 G/ 42 TABY 
SWEDEN 


FRANK M. LOCKE 
2213 SOLORWAY 
LAS CRUCES, NM 8868! 


ROBERT C. LOVICK 
88 HILLHURST LANE 
ROCHESTER, NY 14617 


RIC LOWE 
8@ CAWSTON ROAD ATTADALE 61564 
WESTERN AUSTRALIA 


TERRY LUND 
43 EVERGREEN STREET 
SPENCERPORT, NY 14559 


RONALD MACKENZIE 
1 BRIAN STREET 
COMMACK, NY 11725 


GLEN MANN 
6882 - {52ND AVENUE NE 
REDMOND, WA 98852 
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JAMES MANUELLE 
138 SHALE DRIVE 
ROCHESTER, NY 14619 


JOHN H. MASCARENHAS 
PO BOX 78 
LEDYARD, CT 86339 


ROBERT H. MASKREY 
1841 MILL ROAD 
EAST AURORA, NY 14652 


ALAN MATZGER 
968 GUERRERO 
SAN FRANCISCO, CA 94116 


ANDY MAU 
2 ELDRIDGE STREET 
NEW YORK, NY 16882 


PAUL F. MCCARRON 
PQ BOX 188 
BELGRADE LAKES, ME 84918 


FRED W. MCILROY, 11] 
24426 24TH S STREET 
KENT, WA 98831 


MED/ASSIST DISTRICT AUDITORS 
6815 WEST CAPITOL DRIVE 
MILWAUKEE, WI 33216 


ALAN MEGHRIG 
2491 BUCKSKIN DRIVE E 13 
LAGUNA HILLS, CA 92633 


CAROLYN METTLER 
6118 MANSFIELD DRIVE 
GREENDALE, WI 93129 


BOB MENDELSON 
27 SOMERSET PLACE 
MURRAY HILL, NU 87974 


H. G. METZLER 
239 BELCODA DRIVE 
ROCHESTER, NY 14617 


ALBERT J. MILLER 
179 WALTER HAYS DRIVE 
PALO ALTO, CA 94383 


JACK E. MILLER 
BOX 208 
CARSON CITY, NV 89782 


JOHN J. MINERD 
BOX 191 
YORKSHIRE, NY 14173 


DR. JAMES MINOR 
22 BRYN MAWR ROAD 
ROCHESTER, NY 14624 


GEORGE C,. MOENCH, MD 
1952 49TH STREET SOUTH 
ST PETERSBURGH, FL 33787 


THOMAS UW. MONTEMARANO 
1321 SWAN DRIVE 
ANNAPOLIS, MD 21481 


EARL H. MOORE 
2112 BANCROFT 
LAKE CHARLES, LA 78685 


BRUCE R. MOREHEAD 
2408 W. KIRBY 
TAMPA, FL 33614 


~ EIKE MUELLER 


12117 COMANCHE TRAIL 
HUNTSVILLE, AL 35883 


TO NAPIER 
12 BIRCH STREET 
MONSEY, NY 18952 


JOHN E. NEWBY 
4532 - 167TH AVENUE SE 
ISSAQUAH, WA 98027 


JOHN NEWMAN 
8 HILLCREST DRIVE’ DARLINGTON 
WESTERN AUSTRALIA 6878 


DAVID C. NORMAN 
3883 SAN MARCOS COURT 
NEWBURY PARK, CA 91328 


JOSEPH H, NORRIS 
19 WEST SECOND STREET 
MOORESTOWN, NJ 88857 


LT COL DAVID NOWLIN 
1183 SOUTH GRANDVIEW 
PAPILLION, NEBRASKA 68846 


H. T. ODUM 
2186 Na 9TH AVENUE 
GAINESVILLE, FL 32683 


BRIAN E. O’ HEARN 
78 COLUMBUS AVENUE 
SOMERVILLE, MA 82143 


WILLIAM PARKER 
2812 BERKLEY 
FLINT, MI 48564 


ASHOK S, PATWARDHAN 
$268 CLAYTON ROAD APT #22 
CONCORD, CA 94521 


A.PAREIGIS 
4411 SOUTH CROSS STREET 
DOWNERS GROVE, IL 68515 


STEVE PERRIGO 
16925 INGLEWOOD ROAD NE B-386 
BOTHELL, WA 98811 
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DULIN 8. PERRY 
506 HILLHURST DRIVE 
BAYTOWN, TX 77521 


LARRY W. PETERSON 
6325 ELEANOR AVUNUE 
OAKDALE, CA 95361 


MICHAEL J. PETREYCIK 
11 STAG LANE 
TRUMBULL, CT 06611 


MELVIN F. PEZ0K 
1381 IGNACIO BOULEVARD 
NOVATO, CA 94947 


ALEX V. PINTER, PC 
PQ BOX 238 
COLUMBUS, GA 31982 


RALPH J. PORTER 
6157 SOUTH 788 W 
MURRAY, UT 84187 


WILLIAM J. POWER 
8 PETER COOPER ROAD 
NEW YORK, NY 18618 


THOMAS PRICE, JR 
129 HOMESTEAD AVENUE 
DE BARY, FL 32713 


J. RAMSEY 
3115 S. ATLANTIC AVE #584 
COCOA, FL 32931-2137 


CARL E. REMLEY 
149 BAYWOOD ROAD 
BILOXI], MS 39532 


HERBERT RICHARDSON 
5885 ANTIONE ROAD 
MOBILE, AL 34689 
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DAVID R. RICKETTS 
18 BRYCE AVENUE 
RED BANK, TN 37415 


ALBERT RIDNER 
CENTRO ATOMICO BARILOCHE 
8466 BARILOCHE, ARGENTINA 


JACK RIPPLE 
é5 APPLECROSS CIRCLE 
CHALFONT, PA 18914 


R. M. ROCKWELL 
235 BELMONTE ROAD 
WEST PALM BEACH, FL 33485 


HERBERT ROSE/ WILCOMP OFF SVCS 
465 WILSON AVENUE 
DOWNSVIEW, ONTARIO M3H 11? 


HOWARD ROSEN 
PQ BOX 434 


HUNTINGTON VALLEY, PA 198864 


MICHAEL J. ROUSSE 
15 SOUTH OWEN DRIVE 
MADISON, WI 53785 


WALLACE R, RUST 
333 BRITTON ROAD 
GREECE, NY 14616 


BENJAMIN R. SAGE 
16488 EAST STANFORD PLACE 
AURORA, CO 88615 


WILLIAM J. SEMBER 
PHILIPS ECG, INC/JOHKNSON ST 
SENECA FALLS, NY 13148 


ROY A. SHAFFER 
938 SPRINGSIDE LANE 
BUFFALO GROVE, IL 68098 


WILLIAM SHANKS 
1345 WEST ESCARPA STREET 
MESA, AZ 85261 


DONALD E. SHAUB 
6294 HIGH STREET 
EAST PETERSBURG, PA 17528 


RONALD D. SHOOK 
168 ANDOVER STREET 


WILKES-BARRE, PA 18782 


PHIL SIMON 
6275 CARY AVENUE 
CINCINNATI, QH 45224 


GARY SIPPLE 
27738 GOLFVIEW STREET 
SOUTHFIELD, MI 48834 


BOB V, SMITH 
498 BROW STREET 
NAPA, CA 94559 


BYRON E. SMITH 
1189 LOCKE AVENUE 
SIM] VALLEY, CA 93865 


DAVID R. SMITH 
3851 DIERKER ROAD / APT A4 
COLUMBUS, OH 43228 


MEL SMITH 
NSSA/STDN 
DANDAN, GU 96919 


RALPH S. SMITH JR MD 
3688 MAC CORKLE AVE SE SUITE 9 
CHARLESTON, WW 29384 


DR. JACK M. SPURLOCK 
293 INDIAN HILLS TRAIL 
MARIETTA, GA 30067 


RICHARD F. SQUAILIA 
818 MAIN AVENUE 


SCHENECTADY, NY 12383 


PETER STANDEN 
12 KENDALL STREET/ CHARLESTOUN 
AUSTRALIA 2296 


BILL J. STANTON 
8115 HELM COURT 
COLORADO SPRINGS, CO 86718 


DAN STIEFLER 
S 3668 FULLER STREET 
BLASDELL, NY 14219 


JOSEPH STRATMAN 
52829 US 33 NORTH 
SOUTH BEND, IN 46637 


DANA G/ STREBECK 
8834 SHADY ARBOR LANE 
HOUSTON, TX 77648 


TED STUCKEY 
BOX 420/ CAMBERWELL, 3124 
VICTORIA, AUSTRALIA 


DAVID SUITS 
49 KARENLEE DRIVE 
ROCHESTER, NY 14618 


DICK SWARM 
12789 GREENHALL DRIVE 
WOODBRIDGE, VA 22192 


JAMES P. SWEENEY 
1566 WOMACK ROAD 
DUNMOODY, GA 38338 


ARTHUR TACK 
1127 KAISER ROAD SW 
OLYMPIA, WA 98502 
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BOB TALBOT 
989 EXPLORER #2 
RAPID CITY, SD 5778! 


RICK TAUBOLD 
197 HOLLYBROOK ROAD 
ROCHESTER, NY 14623 


JOHN B. THIRTLE 
185 COIFER LANE 
ROCHESTER, NY 14622 


MR. D. &. THOMAS 
02 GROVE WAY! WEMBLEY 
MIDDLESEX, ENGLAND HA? éJT 


TOMMY THYSTRUP 
VIRKELYST 28/ NR. SUNDBY 7488 
DENMARK 


J. P. TOOHEY 
24 HOSKEN STREET” NORTH BALWYN 
MELBOURNE 3184/ AUSTRALIA 


STEFFAN TOTH 
PO BOX 1779, SINA 
KELOWNA, BC V1Y 8P2 


T. R.A. P. 5, 


PQ BOX 8297 STATION "F* 


EDMONTON, ALBERTA T6H 4Wé 


MARKE UNDERWOOD 
1758 DYSON DRIVE NE 
ATLANTA, GA 30387 


DOUG VAN PUTTE 
18 CROSS BOW DRIVE 
ROCHESTER, NY 14624 


CHRIS VERBEEK 
14721 35TH AVENUE SE 
BOTHELL, WA 98812 


RICK] ANDREW VICK 
782 WEST HOLLY AVENUE 
STERLING, VA 22178 


JAMES D. WARNER 
11447 YUBA RIDGE DRIVE 
NEVADA CITY, CA 95999 


ROY WEISENBARGER 
1281 CHESHIRE ROAD 
MAITLAND, FL 32751 


ROBIN WERNICK 
9516 CARROLL CANYON DRIVE 
SAN DIEGO, CA 92126 


MAYNARD WILCOX 
187 EAST AVENUE 


FRANKFORT, NY 13348 


MARC A. WILLIAMS 
3 AMES STREET 
CAMBRIDGE, MA 82139 


WAYNE C. WILLIAMS, DIR 
SCH OF MED/EAST CARGLING Jly, 
GREENVILLE, NC 27834 


WiS SURVEY RESEARCH LAB 
éi@ LANGDON STREET’ 169 LOWELL 
MADISON, WI 33783 


THIMAS R. WOOLF 
84 BOWEN ROAD 


CHURCHVILLE, NY 14428 


i. BRYANT WOGSLEY , JR 
schi 


STEVE WOOTTEN 
155 BARINGTON STREET 
ROCHESTER, NY 14487 


¥ID R. WRIGHT 
1385 N EIRE / APT 23 
LEXINGTON, NE 68858 


WILLIAM B. WRIGLEY 
4931 REBEL TRAIL, Nu 
ATLANTA, GA 38327 


DAVID Z2AWISLAK 
9729 N CALIFORNIA AVENUE 
CHICAGO, IL 48659 


CHRIS ZERR 
18932 - 156TH COURT NE 
REDMOND, WA 98852 


ANTHONY ZUVLIS 
11.17 SEQUOIA 
FORT COLLINS, CO 88525 


se 
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BASIC PRECISION 19 REM «Sample calculations to t22t numerical precision 
“Subscriber Wallace Rust, of the in ol oh 

Rochester User Group points out that In- a i ois 7 

tecolor computers, including the CCIl, ae PRINT 12 3 3 UN 

can store numbers up to 16777216. 3 

While BASIC truncates and rounds them 6@ YY = 1.2349678 id, 94 
to six digits for display, it still stores them 79 «PRINT 12 # Y 

internally with at least 7-digit accuracy, sh 14,8148 
and with 8-digit accuracy to the 98 PRINT 1° 

number stated above. You have {#0 8, 8IAR45 
nothing to lose, therefore, by entering 14@ PRINT {-¥ 

constants with 8-digit accuracy. This will 128 ag. ai 
cpelsioas highest accuracy in com- (49 plit) = 3 cate Tae 
putations before the rounding, prior to re RAAT 

display, takes place. You oie this mis PRINT FICE) # 1282 492.99 
rather easily with some simple ex- 138 he 

periments, perhaps using Pl. [See some Hf P]t2) = 3, 141992604 492.389 
exploratory examples below. ED] 179 PRINT PEe2) & 12%2 
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A ‘no—echo’ patch without assembly language!! 


Here’s one from Tom Devlin—a new version of the no-echo 
patch that uses no machine language! And it works! 


Most users are familiar with the ESC USER jump loca- 
tion (if not, see Rick Taubold’s detailed explanation in Col- 
orcue). There is also a user-defined input flag vector which 
may be used to produce a deviation from the ‘normal’ flow 
of computer processes. Normally, the CCII performs its I/O 
with BASIC, FCS, the serial port, etc., according to default 
settings of the various flags. These settings are initialized 
by FCS at turn on time to prepare the computer for ‘nor- 
mal’ operation. The programmer holds the power to alter 
this normal state of affairs. If the input flag at 33221-33223 
(81CSH-81C7H), for example, is set to any of a group of 
special values, input is directed to a special jump vector (user 
defined), just like ESC USER. This jump vector can transfer 
Operations to an unusual place, determined by the 
programmer. 


As an example, the keyboard flag is at location 33247 
(81DFH). This flag value is normally ‘0’ and input keyboard 
characters are sent to the CRT. When it is ‘13’ they go to 


OOOO REM 
MOO?O REM 
QOOSO REM 
OOO4O 


00030 POKE 33221,195:REM POKE 


OOOSO 
OOO7O REM 


INTO JUMF VECTOR 
DONE BEFORE *NO ECHQ’ 


FCS, which might send them back to the CRT or to a disk 
drive. When the flag is ‘12’, the keyboard input is ignored. 
But if the flag holds any of the values 10, 11, 15-17, 19-22, 
24, 26, or 28-31, then a jump to the memory location stored 
at address 33221—33223 occurs. If these addresses hold 
8355H, for instance, then program execution continues at 
that location. 


The routine below proceeds in just this way. The value 
*30’ is placed in the jump vector address, 33221—33223. 
What we place in this address is the address of the routine 
that gets and stores the next keyboard press, but rather than 
allowing it to print, we trap these values for our own use. 


Program lines 250-290 access the keyboard character, now 
in location 33278. From here on, Basic may do as it likes, 
we we have controlled the timing of this event to sult our 
needs. The following listing will demonstrate this technique 
for you. Type it in, and play with the variations that are 
possible. [] 


FIRST WE HAVE TO LOAD THE FROFER ADDRESS 
TING sitters, five) BE 


IS REQUIRED 


Ure”: Ito tana: BYTE 


FOR V6.78 THE ADDRESS IS 3FAQH 


00080 IF PEEK (1)=108 THEN POKE 33222, 163:POKE 33225,63 


OOOSO 
OOOO REM 


PUR Vee/7 OR. VF. 8021'S 


QOAQLH 


GORPOv IF FREER: Cli S6) THEN POKE S3222, 12 PORE 332235, 10 


OOT29O 
QOOLZO REM 
OO140 REM 
QOoOiSaQ REM 
QOO160 
OO.7a 
QO180 REM 
00190 REM 
QOO2OO REM 


FOR NO ECHO FOKE 
TO RETURN: TO ECHO POKE 12. 
OR THE END OF THE FROGRAM WILL ALSO DO IT) 


20 INTO “INPFLG" (33247), 


(AN INFUT STATEMENT 


THE FOLLOWING FROGRAM IS FOR DEMO ONLY 
IT ECHOS THE ASCII EQUIVALENT OF THE 
KEY YOU PRESS. PRESS “HOME” TO END 


OOPLO 

O0N22O FPOKE 33247,30:REM TURN OFF ECHO 
OO2Z3O | 

QOO24aO 

00250 FOKE 33278,90 

00260 K=PEEK (33278):IF K=0 THEN 260 
00270 FRINT Es 

00280 IF K=8 THEN END 

00290 GOTO 250 
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CCII Color Adjustment Wallace Rust 

Compucolor users often have trouble distinguishing cyan 
from white, and yellow from green. The culprit is the green 
CRT phosphor, which emits not only green light, but also 
unwanted energy in the yellow, orange, and red regions of 
the spectrum. Thus, cyan images contain some unwanted 
red which makes them look white, and green images con- 
tain some unwanted red which makes them look yellow. 


The trick to getting better colors is to adjust the green chan- 
nel brightness so that its unwanted emissions are significantly 
weaker than the red emission of the red channel. 


Page 6.06 of the Compucolor Maintenance Manual (ISC 216 
978 999208) explains how to adjust the three screen grid con- 
trols R1 (red), R2 (green), and R3 (blue) located at the top 
of the circuit card at the base of the CRT. A similar pro- 
cedure is outlined in the 3651 Manual, described here. 


CAUTION: HIGH VOLTAGES ARE PRESENT IN 
THIS AREA OF THE COMPUTER. DO NOT 
ATTEMPT THESE ADJUSTMENTS UNLESS YOU 
KNOW EXACTLY WHAT YOU ARE DOING. NEVER 
USE BOTH HANDS TO MAKE ADJUSTMENTS. 
STAND ON AN ELECTRICALLY ISOLATED 
SURFACE WHEN WORKING ON THE COMPUTER. 
IF IN DOUBT, OBTAIN THE ASSISTANCE OF A 
QUALIFIED SERVICE PERSON. 


(A convergence and color purity adjustment should be made 
first. Write to Colorcue for details of these adjustments.) 
1. Erase the screen with a background color of white. 

2. Turn potentiometers R1, R2, and R3 fully to their ‘off’ 
position. Turn the brightness control, mounted on the back 
of the unit, on the 50 pin bus side, below the FOCUS con- 
trol, to maximum brightness. 

3. Turn the red control, R1, until the red retrace area is just 
visable. Repeat the procedure for the green and blue con- 
trols (R2 and R3.) 

4. Adjust the brightness control until there is no visable 
retrace line, and until brightness is at a comfortable level 
with a minimum of saturation. 

5. Vary the adjustment of these controls to obtain the best 
white display at a comfortable level of brightness. 


After following that procedure, do the following: 


1. Put some test samples of each color on the screen at the 
same time. 

2. Confirm that the red/blue ratio is such that you get a 
good magenta, which is neither too blue nor too red. Make 
minor pot adjustments to meet this criterium. 

3. Turn R2 (green) to reduce the brightness of the green 
channel, until yellow becomes slightly orange (like KODAK 
yellow), and white becomes pink, relative to daylight white. 
That’s all there is to it!! O 
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49 West Second Street ¢ 


UNCLASSIFIED ADS 


FOR SALE: CCIl, v6.78, lower case, 2 drives, full keyboard. 
Computer is in excellant condition, and comes with most 
issues Of COLORCUE and FORUM, and many program disks. 
$1000.00. Call or write Bill Stanton, 81415 Helm Court, Col- 
orado Springs, CO 80918; 303 599-4089. 


FOR SALE: CCIl, v6.78,32K, 1 drive. Maintenance Manual 
and following software: Personal Data Base, Basic 
Language 1-10, Formatter, Basic Editor, Screen Editor, 
Assembler, Fortran, miscellaneous games and disk utilities. 
All back issues of COLORCUE. Computer in good working 
order, $700.00, money order or certified check, prepaid. 
Bill Anthony, 655 Wells Way, Camano Island, WA 98292. 206 
387-1576. 


FOR SALE: CCIl, v6.78, 32K, full keyboard, switchable lower 
case, handshake option, printer cable, sound, dust covers. 
Over 70 disks including Helm’s Data Base, Screen Editor, 
Print; Com-Tronics TERMII; Income Tax Program, and many 
more. Manuals and periodicals included. $1500.00, 
prepaid. Phil Simon, 6275 Cary Avenue, Cincinnati, OH 
45224. 513 681-8370. 


BASIC VARIABLES IN FILE STATEMENTS 


FILE ‘‘N”’ and FILE ‘‘R”’ statements in Basic use a combination 
of string and numeric parameters to specify the file name and at- 
tributes. It is not obvious that variables can be used to specify these 
quantities in the course of a Basic program. The examples below 
show the extremes to which variables may be used. Suppose you 
have a RND file of 128 bytes containing some data for each week 
in the year and want to read the file for a specific week. The follow- 
ing coding identifies the week number as a ‘decimal’ version number 
[1-52]: 

426 INPUT “ENTER WEEK NUMBER > *;W$ 

438 FILE "R",2,°WEEK.RND;"+W$,131,128,1 
String concatenation may be used to construct a proper file name 
as illustrated above. Note that the file name must be in string form. 


We could alternately call the RND files ‘WK1.RND’, 
‘WK23.RND’, etc: 


428 INPUT "ENTER WEEK NUMBER > ";WS 
436 FILE "R",4,"WK*+u$+" RAND" ,151,128,! 


As long as we assign string variables where strings are required, 
and numeric variables where numbers are required, we can suc- 
cessfully operate on files with variables. Consider this example: 

128 A$="WK" : C$=".RND" : Fal : H128 

178 INPUT "ENTER WEEK NUMBER > * ;% 

208 FILE "R",1 ,AS+WS+C$,1;F,H,F 


A final example is taken from a working business program of mine 
(which has a well-documented file table in the manual!): 


950 FILE "R",N,"CD"+D$+":"42$(2)4 
MID$(P$<24CK) ,GH-5,T) ,F34#P,KL-6,C 


As always, a few ‘controlled’ experiments will help give you a con- 
fident grasp of the rules for using variables in this way. [JHN] 


Moorestown, NJ 08057 
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ANIMATION (Concluded) 


CHRIS ZERR_ 10932-156th Court NE 


Redmond, WA 98052 
Compuserve: 71445,1240 


In the last article we plotted a rectangle on the screen and 
moved it through a blue field at various speeds using OSTR 
to print db strings.. Let’s try a more appropriate figure this 
time, constructed from plot blocks, increase the action, and 
poke the animaton directly into screen memory. 


We will construct an ‘alien’ with a missile launcher, mov- 
ing feet, and piercing ‘eyes’ that blink menacingly at us, all 
through the use of plot blocks poked directly into screen 
memory. Constructing the figure of the alien is a matter of 
laying out the plot blocks and identifying the code required 
to illuminate them in the desired way. 


CONSTRUCTING THE ALIEN’S PLOT BLOCKS. 


Figure 1 shows a single plot block, consisting of eight con- 
trollable portions .. Al through A4 and BI through B4. 
These eight portions coincide with the eight bits of a byte. 
The portions of the plot block that'will be illuminated will 
depend on whether or not the corresponding bit in the plot 
byte is set. To illuminate each of the four corners of a plot 
block in turn, we would set our plot byte equal to each of 
the following numbers: 


Upper left corner : set Al bit (bit B= PLOT value } 
Lower left corner : set A4 bit (bit 3)= PLOT value 4 
Upper right corner: set BI bit (bit 4)= PLOT value {4 
Lower right corner: set B4 bit (bit 7)= PLOT value 128 


So to construct a plot block, we shade in the bit sections, 
add all the individual bit values to the find the total plot 
value, and we have it! But we are not quite finished, because 
plotting the plot value alone will not quite do it. The CCI 
code must also be assigned, and for a plot block it must have 
a value between 128 and 255. The effect of the CCI code 
will be the same, by and large, as it would be for an ASCII 
character attribute, but the number will be increased by 128. 
For example, to set the color yellow, we issue PLOT 6,3 
for ASCII, but for a yellow plot block it becomes 3 + 128 
or 131. (Now we know how to peek at a screen memory loca- 
tion to tell if there is an ASCII character there or a plot 
block.)[1] 


You may easily experiment with plot blocks and their CCI 
codes in BASIC to observe the diffference various CCI codes 
make. Whatever character we design must be derived from 
a combination of plot blocks within the possibilities available 
to us. A crude sketch on graph paper is the easiest way, 
possibly, and permits an instant translation into the correct 
plot codes. 
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Assembly Language Programming 
Part XVI 


> W ND 


| |xix{xf [xf [ J=116= 


643216 8 4 2 1 


Our alien has two different forms in this program. In the 
first form his left foot is raised; in the other his right foot 
is raised. Figures 2 and 3 illustrate the composition of these 
two figures. The outline of the plot blocks has been exag- 
gerated in Fig 2 so you can see how the plot codes for this 
figure were derived. The upper left plot block has bits 2, 
3, 5, 6, and 7 set, giving a value of 4+ 8+32+64+ 128 or 
236 for this plot block. You should try to derive the plot 
codes for the remaining blocks as an exercise. The lower left 
block is shown with the proper bits set for you in Figure 2. 


The plot blocks from Figure 2 contain the values 236, 238, 
206, 251, 191, 116, 0, 143. The zero (0) count is necessary 
to act as a filler which says a null block is to be plotted in 
that location. In actual practice, each of these plot blocks 
must also have a CCI code following it, so a completed com- 
mand byte string for Figure 2 would be 236, 131, 238, 131, 
206, 131, etc. 

We may mix plot blocks with ASCII characters in the plot 
command string, and our alien requires this to plot his ’eyes’, 
which are quotes in ASCII. You will find them in the plot 
string from this Basic example, which plots the alien in one 
of his two forms on the screen: 


{WH -4=30738 : REM INITIAL SCREEN MEMORY LOCATION 

116 FOR A=] TO 3: REM PAINT 3 VERTICAL PAIRS OF BLOCKS 
128 FOR Bi TO 4 : REM THREE PAIRS OF BYTES FOR X AXIS 
138 READ ¢ : REM GET POKING DATA 

148 POKE <,2 : REM POKE ALT PLOT CODES & CLI 

{54 X=X4{ 

146 NEXT 8 

178 ¥=X+122 ; REM PLOTS DOWN ONE BLOCK OR » AXIS 

138 NEXT A : REM PLOT NEXT VERTICAL PAIR 

198 END 

208 DATA 236,131 ,238,131,206,131,251,131,34,25,191 131 
i@ REM © 36,25° TS ASCI] [°] IN RED 

26 DATA 114,131,0,0,143,131 + REM “,4° 1S FILLER PAIR 
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WELCOME ALL TO 


\ \ 


ae bt : 
ee ele 
THE INTECOLOR BULLETIN BOARD 


(286) 483 - 3468 


This BBS is called TARDIS, run by the ‘Doctor and Dee’ 

at 266-483-3468. It may be accessed at 308 baud by 
TERMI] (Com-Tronics) or any ‘standard’ termina] emu- 
lation software that might be used to talk to any other 
network. TARDIS is hardly confined to Intecolor products. 
In fact, we are new entrants. TARDIS services CP/M, 05-9, 
IBM-PC, Flex, Commodore 64 and others as well. 


It is an interesting little board, and I suspect that 
there can be some unique rewards from using it. The 
‘Doctor’ Knows his stuff, and has a great familiarity 
with micros and micro software. He will try to get any 
public domain software you might need. 


GETTING STARTED. This can be a little tricky! Dial the 
BBS. When the carrier is detected, type <RET>. A blank 
screen will stare at you. The message ‘Nulls, if needed, 
(8-7)? will appear. If nothing is happening, type any 


number from “8° to “9° and the logon message will appear. 


You will be asked for your first and last names, and a 
code word to identify yourse!+, each of these prompted 
by the BBS. 


As a first-time user, you have few priveleges. You will 
be given a series of options, “B,E,R,5,K,G,W,J,U,7,x,P, 
C,N (or 7): to select from. Type ’?’ for HELP and to 
see what’s going on. AS for the others, here is their 
meaning: 


{C) Chat with the Doctor 
{G) GO “Leave the system’ 
{S> Scan message base 

{U> Users file (Members) 
{L) List callers ¥ 

{P> Password Change 

{X> X’pert User 


(B> Bulletin File 
{E> Enter Message # 
{R> Read Message 
{K> Kil] Message 
{T) Toggle BELL 

{W> Welcome Message 
(J> CP/M system 4 


* Special function requirements. Verified users only. 
% CP/M is open to those people who leave information on 
themselves, 


You will do best to choose ’G’ to leave the system. As 
crazy as this sounds, your first visit is a little 


*suspect’ to the system, for reasons any BBS user already 
Knows. To make yourself a respectable member of the commun- 
ity, you must first tell a little about yourself. After 
choosing ‘6G’, you will see the following two lines - 


Enter confidential comments for the Doctor <Y or N> — 
(type “Y’) ... and 
Enter text; type two RETURNs to end. 


At this point proceed with care! WAIT for the ‘>’ prompt 

to appear before you begin typing your introductory message 
to the ‘Doctor.’ Each line will hold only about 6@ char- 
acters and must be terminated with a RETURN. Now you must 
wait a second or so for the “>’ prompt to reappear to 
receive your next line of text. You must not try to enter 

a blank line, for that constitutes “two RETURNS’ and you 
will be terminated. 


After pressing two RETURNS to ‘end’, you will be asked to 
turn off your modem. This is an inelegant but effective way — 
of stopping your long distance charges. 


If the ‘Doctor’ is able to read your message, he will, 
theoretically, install you as a “member in good standing’, 
and your second visit will be more fruitful. As with all 
early BBS accesses, you will be wise to activate a log file 
for the session (turn on your buffer in TERMIJ) and save it 
to disk before quitting your terminal software. This way you 
can review all that happened in your leisure, and make sub- 
sequent visits more fluent and less expensive. 


COLORCUE readers have proven themselves to largely a ‘lazy’, 
quiet collection of people. Our attempt at making ’commun- 
ication’ a theme for Volume VI has not been fruitful. But 
for those of you who like to have fun and share, this is a 
new opportunity. I urge you to be active with TARDIS, and 
leave a few messages from time to time. You may advertise 
your own software, tel] about special programs or hints you 
have available, ...whatever. We need to keep all our commun- 
ication channels busy, and TARDIS can be a fast-access and 
helpful supplement to CHIP as a news medium for CCI] users. 


As always, call or write to COLORCUE if we can be of service. 


